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Abstract 


Adaptive  Design  or  prototyping  has  been  suggested  as  an 
effective  approach  for  developing  and  implementing  computer- 
based  decision  support  systems  (DSS) .  The  literature  on  DSS 
has  also  shown  that  adaptive  design  improves  user  involve- 
ment and  satisfaction.  This  thesis  attempts  to  follow  the 
adaptive  design  approach  to  design  and  implements  a  data- 
oriented  DSS  —  the  NPS  Department  of  Administrative  Scien- 
ces (AS)  Database  Reporting  System.  The  development  of  the 
AS  Reporting  System  has  helped  review  the  adaptive  design 
strategy.   The  following  findings  were  derived: 

-  Close  participation  between  end  user(s)  and  the  system 
builder  helps  to  clarify  problem  issues. 

-  Frequent  brief  interactions  between  end  user  and 
system  developer  provide  more  immediate  and  better 
defined  response,  resulting  in  a  more  effective  proto- 
type. 

-  Unstructured  initial  planning  sessions  involving  the 
end  user  and  the  system  builder  could  distract  the  end 
user  from  the  definition  of  important  initial  require- 
ments. A  more  structured,  issue-oriented  approach 
results  in  more  timely  and  clearly  defined  require- 
ments . 

-  User  feedback  is  less  intense  and  critical  towards  the 
final  phase  of  the  development  process. 

-  Prototyping  is  cost-effective,  at  least  for  the  first 
phases  of  system  enhancements. 

-  Prototypes  are  disposable  systems. 
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I.   INTRODUCTIOn 

The  purpose  of  this  thesis  is  twofold.  First,  it  de- 
signs, develops  and  implements  a  data-oriented  financial 
decision  support  system  for  the  Department  of  Administrative 
Sciences  (AS)  of  the  U.S.  Naval  Postgraduate  School  —  the 
AS  Database  Reporting  System.  Second,  throughout  the  deve- 
lopment of  the  system,  this  thesis  seeks  to  derive  some 
observations  on  the  effectiveness  of  the  adaptive,  or  proto- 
typing, approach  in  building  an  end  user-oriented  computer- 
ized decision  support  system. 

There  are  at  least  two  factors  that  have  motivated  this 
thesis.  First,  the  increasing  need  of  managing  complex 
financial  data  within  the  Administrative  Sciences  Department 
has  triggered  interest  among  the  department  managers  to 
automate  their  financial  system.  A  computerized  system  is 
expected  to  provide  accurate  and  timely  information  han- 
dling. It  can  also  generate  fast  and  standardized  reports 
which  are  prohibitively  labor  intensive  if  done  with  the 
manual  system. 

Second,  the  literature  on  Decision  Support  Systems  (DSS) 
often  advocates  that  the  traditional  approach  for  developing 
a  data  processing  system  is  not  appropriate  for  prototyping. 
In  fact,  a  conventional  development  life-cycle  consists  of 
eight  phases.  These  include:  system  feasibility,  software 
plans  and  requirements,  product  design,  detailed  design, 
code,  integration,  implementation  and  operations  and  main- 
tenance [Ref.  1],  Such  an  approach  requires  full  knowledge 
of  the  nature  of  the  problem.  Furthermore,  it  has  revealed 
to  be  costly  in  time  and  effort.  Since  DSS  requirements 
constantly  change  during  the  development  process,  using  the 
traditional  life-cycle  model  can  be  risky. 


This  thesis  is  organized  as  follows.  Chapter  II  dis- 
cusses the  adaptive  design  approach  to  DSS  development. 
Characteristics  of  the  prototyping  approach  are  addressed. 
Also,  the  model  for  prototyping  is  presented.  Chapter  III 
gives  an  account  of  the  prototyping  experiment  with  the  AS 
Database  Reporting  System.  The  "diary  approach"  is  adopted 
to  record  the  evolution  of  the  system  architecture  from  the 
user  interaction  perspective.  Chapter  IV  discusses  some 
observations  based  on  the  prototyping  experiment  and  pro- 
vides suggestions  for  possible  future  extensions  of  the 
proposed  system. 

Three  phases  of  iterative  design  are  examined.  Techni- 
cal reports  on  the  AS  Database  Reporting  System  are  describ- 
ed in  the  appendices.  Appendix  A  reproduces  the  user's 
manual.  It  provides  instructions  for  the  casual  users. 
Diagrams  of  the  system  interface,  reproduction  of  the  system 
menus,  and  sample  hard  copy  reports  are  respectively  given 
in  Appendices  B,  C  and  D.  Appendix  S  contains  detailed 
technical  instructions  intended  for  the  database  administra- 
tor and  the  system  programmer.  Data  Flow  Diagrams,  struc- 
tured charts,  a  data  dictionary,  program  listings  and  lists 
of  tables  are  respectively  given  in  Appendices  P,  G,  H,  I 
and  J. 


II.  THE  ADAPTIVE  DESIGN  APPROACH  TO  DSS  DEVSLOPMENT 

A.   WHAT  IS  ADAPTIVE  DESIGN? 

Conventional  design  strategy  in  data  processing  systems 
invariably  assumes  that  the  requirements  of  the  system  can, 
and  should,  be  determined  prior  to  the  implementation  of  the 
system.  This  requirements  analysis  can  be  achieved  by  per- 
forming logical  analysis  and  investigation  of  user  informa- 
tion processing  needs  and  behavior  [Ref.  2].  For  instance, 
the  requirements  for  an  accounting  system  could  be  determin- 
ed by  examining  accounting  procedures  and  interviewing 
competent  accountants. 

However,  such  a  procedure  cannot  be  applied  to  building 
a  DSS.  A  DSS  can  be  defined  as  a  computer-based  system  that 
helps  its  user(s)  in  solving  ill-defined  or  unstructured 
decisions.  As  a  consequence,  the  system  designer  cannot — 
and  eventually  should  not  —  have  or  be  required  to  have  a 
complete  understanding  of  the  user's  needs  prior  to  the 
design  and  implementation  process.  Rather,  he  should  expect 
that  the  emergence  of  unanticipated  informational  needs  is  a 
continuing  part  of  the  design  and  development  effort. 

Thus,  adaptive  design  in  a  DSS  involves  the  role  of 
learning  in  the  DSS  building  process.  To  reduce  the  risk  of 
not  being  aole  to  reach  (uncertain)  final  objectives,  DSS 
researchers  often  argue  for  adopting  the  prototyping  stra- 
tegy. This  consists  of  focusing  the  development  effort  on 
building  a  quick  and  working  prototype  or  model  that  has  the 
most  important  features  or  ideas.  This  early  system  is  next 
delivered  to  the  end  user  for  evaluation.  The  users  then 
give  their  feedback  for  determining  possible  enhancements. 
The  system  builders  study  the  users'  suggestions  and  attempt 
to  update  the  prototype  accordingly.   This  interaction 
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between  the  user  and  the  analyst  continues  until  a  satisfac- 
tory prototype  is  achieved.  An  important  iiiiplication  of  such 
an  iterative  and  evolutionary  process  is  that  both  the  user 
and  the  analyst  are  expected  to  make  mistakes,  but  attempt 
to  learn  as  much  as  possible  from  these  mistakes. 

B.   CHARACTERISTICS  OF  ADAPTIVE  OR  EVOLUTIONARY  DESIGN 

The  process  of  evolutionary  design  can  be  characterized 
by  the  following: 

1.  Remove  the  Pressure  to  Do  it  Right 

Keen  [Ref.  3]  insists  that  the  prototyping  goal 
should  be  focused  on  effectiveness  rather  than  on  efficien- 
cy. It  is  essential  that  a  system  be  built,  even  if  it  does 
not  have  all  of  the  desired  features.  Such  a  strategy  will 
help  remove  some  pressure  on  the  system  builder.  In  fact, 
high  requirements  of  the  system  reliability  could  be  a 
gold-plating  feature  that  causes  delay  and  increased  costs. 
The  end  user  often  wishes  to  see  a  working  system  —  even  at 
the  risk  of  incompleteness  —  to  understand  what  it  is  all 
about. 

2.  A  Learning  Process 

Learning  is  an  integrated  part  of  the  design  process. 
It  is  assume.^  i.iat  the  user  copes  with  a  semi-structured  do- 
main. Some  relevant  decision-making  factors  are  unknown. 
Also,  the  decision  making  methods  are  vaguely  defined. 
Prototyping  can  be  used  as  a  learning  tool  to  explore  the 
manner  of  change  in  the  users'  priorities.  A  good  develop- 
ment process  should  lead  to  a  redefinition  of  the  user's  way 
of  analyzing  the  problem.  This  would  in  turn  lead  to  a  new 
way  to  resolve  problems. 

3.  User  Participation 

Evolutionary  design  involves  active  user  participa- 
tion. The  user  should  provide  good  and  timely  feedback  to 
facilitate  the  enhancement  process  of  early  prototypes. 


This  implies  that  the  DSS  user  employs  the  system  and  evalu- 
ates it  in  light  of  the  merits  of  the  information  it  pro- 
vides to  support  decision  making.  He  is  expected  to  suggest 
changes  in  Input/Output  formats  and  the  structure  of  the 
prototype  under  development,  rank  the  usefulness  of  various 
modules  of  the  current  system  and  to  prioritize  the  useful- 
ness of  suggested  features  to  be  integrated. 
4.  Inexpensive  Development  Effort 

Keen  and  Gambino  [Ref.  4]  argue  that  the  first  proto- 
type should  be  inexpensive.  3y  its  nature,  prototyping  is  a 
risky  venture.  Since  potential  benefits  of  the  would-be  DSS 
are  often  unclear,  important  development  cost  can  hardly  be 
justified.  More  important,  a  high  initial  investment  can 
discourage  the  user  to  abort  the  process. 

C.   A  MODEL  FOR  PROTOTYPING  OR  ADAPTIVE  DESIGN 

Neumann  and  Jenkins  propose  a  prototype  model  that 
consists  of  four  procedures.  As  shown  in  Figure  I,  the 
first  procedure  is  a  design  step  that  attempts  to  identify 
the  user(s)'s  oasic  information  requirements.  A  number  of 
requirements  analysis  approaches  were  proposed  to  identify 
the  users  (s)'s  requirements;  the  data  abstraction  approach- 
-  the  essential  features  are  data  and  data  relationships, 
and  the  process  simulating  approach  —  both  data  and  proces- 
ses must  be  identified  in  the  first  step. [Ref.  5] 

The  second  step  involves  the  development  of  the  initial 
or  enhanced  prototype  which  can  then  be  delivered  to  the 
user  for  use  and  feedback.  In  the  third  step,  the  use  of  the 
prototype  leads  to  discussions  and  suggestions  for  enhancing 
the  prototype  (the  fourth  step) . 
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Identify 


Basic 
requirements 


Develop 


Working 
prototype 


Next 
version 


Problems 
and 

Misfits 


Revise 

and 
Enhance 


Figure  1 
A  Model  for  Prototyping 


It  should  be  noted  however  that  the  interaction  between 
the  user  and  the  model  is  the  key  issue  during  the  entire 
process.  It  is  the  quality  and  speed  of  the  interaction 
between  the  user  and  the  system  developer  that  dictates  the 
successf ulness  of  the  prototyping  project. 
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III.   THS  AS  DATABASS  R5P0RTIMG  SYSTEM 

A.  BACKGROUND 

The  Department  of  Administrative  Sciences  (AS)  of  the 
U.S.  Naval  Postgraduate  School  has  operated  its  financial 
data  base  manually.  •'7ith  a  size  of  xmore  than  one  hundred 
personnel,  including  faculty  and  staff,  financial  operations 
and  planning  has  required  suostantial  investment  in  man- 
power, -"^ith  its  growing  size,  there  has  been  a  universal 
recognition  to  have  an  computer-based  data  base  management 
system  (DBMS) .  In  March  1384,  an  information  raquiremencs 
analysis  had  oeen  explored  oy  Renner  [Raf.  5].  This  ana- 
lysis applied  the  methodology  of  structured  design  to  derive 
some  suggestions  for  building  a  relational  DBMS  for  the  AS 
department  (Ref.  7],  In  November  1984,  a  first  attempt  to 
implement  a  DBMS  was  initiated  oy  a  Management  Information 
Systems  faculty  member  (who  played  the  role  of  the  system 
builder)  in  collaboration  v/ith  a  departmental  management 
assistant  (who  played  the  role  of  the  potential  user) .  The 
KnowledgeMan  (X-Man)  relational  Data  Base  Management  System 
was  adopted  as  the  system  generator.  K-Man  was  chosen 
because  of  its  flexible  relational  dataoase  concept  and  the 
possioility  to  perform  spreadsheet  analysis  and  graphics. 
It  also  leaves  room  for  the  trained  end  user  to  manipulate 
the  DBMS  command  language.  Extensive  interaction  between  the 
two  interested  parties  has  lead  to  a  thorough  requirements 
analysis  and  system  specifications.  Also,  a  few  data  taoles 
and  displayed  screen  interfaces  were  developed  to  test  the 
feasibility  of  using  K-Man  as  the  system  generator. 
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3.   METHODOLOGY:  THE  "DIARY  APPROACH" 

Ginzberg  argues  for  a  "Diary  Approach"  to  observe  the 
relationship  between  the  user  and  the  system  designer  [Ref. 
3].  This  approach  has  proven  useful  in  recording  the  evolu- 
tion of  the  systems  modifications  and  user  satisfaction. 
The  diary  approach  consists  of  using  a  log  book  to  systema- 
tically record  the  history  of  the  DSS  development  process. 
Its  records  the  evolution  of  the  system  due  to  modifications 
requested  by  both  the  system  builder  and  the  users.  Figure 
2  describes  the  three  elements  involved  in  the  adaptive 
design  of  the  AS  database  reporting  system.  Among  the  users, 
the  management  assistant  and  the  faculty  advisor  maintained 
close  interaction  with  the  graduate  student.  The  interac- 
tion with  the  faculty  advisor  primarily  dealt  with  concep- 
tual designs  and  technical  issues.  The  interaction  between 
the  management  assistant  and  the  graduate  student  was  almost 
daily.  It  focused  on  the  system  development  and  the  inter- 
face format;  i.e.,  screen  design  and  reports.  The  inter- 
action with  the  administrative  assistant  and  interested 
office  clerks  was  casual.  They  provide  feedback  on  the 
quality  of  the  user  interface. 

Table  I  reports  historical  entries  on  the  iterative 
design  process.  The  changes  were  either  initiated  oy  the 
user  (i.e.,  the  management  assistant)  or  the  system  develop- 
er (i.e.,  the  author).  The  definition  of  the  acronyms  used 
in  the  table  can  be  found  in  Appendix  a. 
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USERS 

The  Management  Assistant 
The  Support  Services  Spvsr 
Office  Clerks 
The  Faculty  Advisor 


BUILDER 


The  Graduate  Student 


DSS 

The  AS  Database 
Reporting  System 


Figure  2 


The  Elements   of  the  Adaptive  Design  of  the  AS 
Database  Reporting  System 
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TABLE  I.   DIARY  ENTRIES 


DATE   INITIATOR 

(D  =  DEVELOPER, 
U  =»  USSR) 

3  Sep   D 

4  Sep   D 

5  Sep   D 


8  Sep   D 

9  Sep   D 
26  Sep  U 


29  Sep  U 

30  Sep  D 

3  Oct  D 
8  Oct  D 
15  Oct  D 
15  Oct-13  Nov   D 


ACTION 


Worked    on    forms    to    add    data    to    the 
personnel   history    (PHISTORY)    tables. 


Same  as  above.  K-Paint  directions 
were  misread;  caused  2  days  delay. 
Created  three  PHISTORY  reports  for 
user   to   confirm  design. 


Continued    working 
ports. 


on    PHISTORY    re- 


User  had  problems  accessing  files. 
This  was  caused  by  a  hardware  pro- 
blem. Created  three  menus;  the 
main,    expenses   and  data  base  menus. 

Modified/created   5   reports. 


ilodified  the 
and  created 
records. 


PHISTORY    menu    program 
a    program    to    delete 


Transferred  files  to  another  compu- 
ter due  to  hardware  proolams. 
(3acked-up   and   reconfigured   system.) 

Everything  is  at  the  same  state  as  2 
weeks  ago  -  lost  2  weeks  due  to 
Backup  problems. 

Attempted  to  pass  an  ICF  program  in 
the  deletion  modules.  --  Not  suc- 
cessful. 

Attempted    to    get    around    above    pro- 
blem   by    using    MACRO(s).    —    Mot 
successful.        Decided    to    use    case 
statements    if    necessary    in    modules. 
—  This  was   successful. 
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13  Nov     D  Corrected    PHISTORY    report.        Page 

headers  were  not  displayed.  Error 
was  in  reading  K-Paint  documenta- 
tion. 

15   Nov      D  Attempted    to    speed-up    processing    by 

RELEASING  modules.  —  Not  success- 
ful. 

18   Nov      D  RELEASE    and    MACRO  (s)    are    not    needed 

in  the  code. 

20  Nov  U  Trying  to  determine  a  method  of 

printing  the  last  date  that  a  table 
was  updated  on  a  report.  --  Not 
successful. 

21  Nov  D  Demonstrated  system  for  user. 

26  Nov  U  Made  the  system  more  user  friendly 

(error  detection)  by  using  loops  in 
programs. 

1  Dec   D  Working  on  menus  for  the  reports 

generators. 

2  Dec   U  Modified  PHISTORY  report. 

11  Dec  U  Created  Outstanding  TO(s)  Report. 

12  Dec  U  Modified  forms  for  entering  data 

from  mixed  case  to  upoer  case. 
Added  a  RATE  field  to  PHIS'tORY  table 
to  ease  computation  of  virtual 
fields. 

14  Dec   D  Created  forms  to  enter  data  and 

modified  programs  to  display  menus. 

7  Jan   D  Modified  programs  to  load  tables  and 

forms  once  to  speed  up  processing. 

9  Jan   D  Created  form  to  enter  data. 

14  Jan  D  7  Jan  modifications  were  not  suc- 

cessful.  Deleted  modifications. 

15  Jan  D  Demonstrated  system  to  user.   Imple- 

mented system. 


I 
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18-26  Jan  U  Modified    and    created    programs    to 

allow  user  to  access  specific  re- 
cords. Required  creation  of  33  more 
files,  (perform  files,  forms  and 
error  messages) 

3   Feb        U  Modified     the    personnel     funding 

report. 

6  Feb   U  Deleted  INDIRECT. DOC^  from  INDIRECT 

entry  forms  and  added  SEGMENT  and 
SERIALS  to  INDIRECT  table. 
D  Modified  the  DELTREC2.IPF  module  so 

that  the  last  record  in  a  taole  will 
not  be  deleted  if  a  match  of  the 
deletion  criterion  is  not  found. 

13  Feb   U  Took  INDIRECT. EXTENDED  out  of  taoles 

—  not  needed. 

15  Feb  U  Added  PURCHASE. QTY  to  entry  forms. 

17  Feb   U  Added  INDIRECT.  SERIALS  and  INDI- 

RECT. SEGMENT  to  entry  form.  Deleted 
INDIRECT. DOCS  from  same. 

19  Feb  U  Found  two  different  data  values 

called  INDIRECT. DOC#.   Placed  IN- 
DIRECT.DOC#  back  in  entry  form. 
D/U  Took  financial  analysis  option  out 

of  MAINFRM.IPF  (not  enough  time  to 
develop  and  implement).  Crossed 
modified  system  over  to  production. 

'^ith  the  "Diary  Approach"  any  major  design  decisions  or 
accomplishments,  and  significant  problems  or  events  were 
logged.  As  the  design  of  the  system  progressed,  the  majo- 
rity of  the  actions  were  initiated  by  the  user(s). 


C.   THE  EVOLUTION  OF  THE  AS  REPORTING  SYSTEM  ARCHITECTURE 

Departing  from  the  original  architecture,  this  section 
discusses  the  required  modifications  that  occurred  through- 
out the  implementation  and  testing  processes.  During  the 
development  process,  it  has  been  noticed  that  the  user  has 
actively  participated  in  the  creation  of  the  DBMS  prototype. 
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Such  participation  has  triggered  numerous  generations  of 
new  requirements  and  consequently  modifications  to  the 
originally  planned  design.  The  purposes  of  this  thesis  are 
(i)  to  expand  the  initial  system,  a  worlcing  but  incomplete 
data  base  system  that  is  used  as  a  management  planning  tool, 
and  (ii)  to  observe  the  evolutionary  development  of  the  DBMS 
in  terms  of  user  needs  and  satisfaction. 

1.  The  Initial  AS  Reporting  System  Architecture 

The  initial  AS  Reporting  System  Architecture  (Figure 
3)  was  based  on  four  income  accounts;  OPTAR,  10%  Indirect, 
other  sources  of  income  and  research  funds,  and  four  expense 
accounts;  miscellaneous  expenses,  travel,  personnel  salary 
and  equipment/supplies.  Figure  3  shows  that  tne  income 
accounts  had  varied  expenses;  i.e.,  miscellaneous  expenses, 
travel  and  equipment/supplies  may  be  funded  by  the  OPTAR 
account.  Additionally,  there  may  be  major  restrictions  on 
expense  funding;  i.e.,  equipment/supply  purchases  over  $3000 
may  not  be  funded  by  the  OPTAR  account,  personnel  salaries 
may  not  be  funded  from  the  OPTAR  account. 
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Figure  3:  The  Initial  AS  Reporting  System  Architecture 

2.   The  First  Modification  Stage 

During  the  first  modification  stage,  an  additional 
income  account,  QPTAR  balance,  and  an  additional  expense 
account,  travel  request,  were  deemed  necessary  to  provide 
the  user(s)  with  more  financial  information. 
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3.   The  Second  (Final)  Modification  Stage 

During  this  stage,  accounts  (data  tables)  were  added 
and  deleted  from  the  AS  Reporting  System's  Architecture. 
The  two  data  tables  added  during  the  first  modification 
stage,  OPTAR  Balance  and  travel  request  were  deleted.  The 
OPTAR  and  travel  accounts,  with  minor  modifications,  could 
provide  the  same  information  as  the  before  mentioned  deleted 
tables.  Two  tables  were  added,  one  table  contained  person- 
nel information  (pay  grade,  job  status,  etc.)  and  another 
contained  an  inventory  of  property.  Appendix  J  is  a  list 
of  the  current  data  tables  and  their  respective  data  fields. 
The  following  are  major  changes  resulting  from  user  inter- 
action: 

1.  Redefinition  of  field  names  and  types  to  increase 
consistency  throughout  the  data  base  and  deletion  or 
addition  of  data  fields;,  redefined  fields  --  7, 
deletion  of  fields  —  12,  addition  of  fields  —  16. 

2.  Menu  and  form  formats. 

3.  Change  of  instructions  on  menus  and  forms. 

4.  Compromise  of  report  formats  to  fit  both  users;  the 
more  knowledgeable  user  wanted  more  information 
while  novice  users  wanted  less. 

5.  The  ability  to  select  records  based  on  specific 
field  values. 
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IV.  RESULTS  AND  DISCUSSION 

This  thesis  involved  the  design  and  implementation  of  a 
data-oriented  decision  support  system  to  support  financial 
decision  making  of  the  AS  Department. 

A.  SOME  OBSERVATIONS  ON  THE  EXPERIMENT 

1.  Close  Participation  Between  the  End  User(s)  and  the 
Systems  Builder 

Adaptive  Design  allows  the  user  to  actively  partici- 
pate in  the  evolution  of  the  system  characteristics.  Three 
basic  changes  in  the  system  design  occurred  during  the 
prototyping  effort.  First,  some  data  tables  were  redesign- 
ed. Field  names  and  sizes  had  been  redefined.  A  number  of 
tables  were  combined.  Second,  additional  program  modules 
were  added  to  coordinate  various  systems  functions  using 
menu  structures.  The  latter  render  the  sequencing  of  program 
modules  transparent  to  novice  users.  Third,  the  use  of  the 
system  (i.e.,  K-Man)  command  language  was  increased. 

In  a  more  conceptual  level,  the  cross  examination  of 
the  prototype  give  rise  to  better  understanding  of  the 
issues  related  to  the  financial  system.  The  experience  with 
the  implementation  of  the  AS  Reporting  System  also  confirms 
some  early  findings  that  argues  prototyping  as  a  catalyst  to 
participative  design,  learning,  and  organizational  develop- 
ment [Ref.  9].  In  effect,  it  has  been  observed  that  the 
main  participating  user  has  gained  increasing  interest  in 
the  understanding  and  design  of  systems.  Also,  the  early 
success  of  the  prototype  has  generated  some  redesign  of 
office  tasks. 

2.  Interaction  Time 

The  more  frequent  the  interaction  time  between  the 
user  and  the  developer,  the  more  effective  the  prototype. 
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Delayed  feedback  has  proven  to  slow  down  the  learning 
process  and  weaken  the  participants'  enthusiasm.  Ti.-ne 
pressures  could  be  used  as  a  strategy  to  speed  up  the  inter- 
action process. 

3.  Planning   Sessions 

Unstructured  initial  planning  sessions  involving  the 
end  user  and  the  system  builder  could  distract  the  end  user 
from  the  definition  of  important  initial  requirements.  A 
more  structured,  issue-oriented  approach  results  in  more 
timely  and  clearly  defined  requirements.  This  is  even 
accentuated  when  there  is  more  than  one  participating  user 
and/or  novice  users.  Individual  differences  sometimes  have 
produced  conflicting  design  suggestions.  However,  effective 
group  discussion  have  proven  to  avoid  the  risk  of  designing 
system  features  that  reflect  strong  biases  from  a  single 
individual.  Henderson  [Ref.  10]  raises  the  potential  risk 
of  loss  of  creativity  when  dealing  with  multiple  participa- 
ting users.  Due  to  little  group  interaction,  and  more 
importantly,  to  the  large  disparity  in  the  degree  of  parti- 
cipation, it  was  not  possible  to  confirm  nor  disconfirm  the 
impact  of  group  interaction  processes  and  user  creativity. 

4.  User  Feedback  is  Less  Intense  and  Crucial  Towards 
the  Final  Phase  of  the  Development  Process 

The  user  feedback  is  expected  to  end  when  a  satis- 
factory system  is  delivered.  It  seems  to  be  unrealistic  to 
expect  the  end  user  —  even  though  he/she  has  become  more 
computer  literate  —  to  keep  expanding  the  system.  Since 
the  user  has  captured  the  capabilities  as  well  as  limita- 
tions of  the  system,  he/she  can  more  or  less  precisely 
formulate  requirements  for  future  enhancements.   At  this 
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stage,  the  need  of  sustained  user  feedback  seems  to  be  less 
crucial  —  requested  modifications  are  normally  minor. 

5.  Cost  Effective 

Prototyping  is  cost  effective,  at  least  for  the 
first  phase  of  system  enhancements.  The  effort  spent  on 
developing  a  successful  and  complete  module  has  allowed 
duplication  of  programming  procedures  to  similar  modules  in 
later  version  of  the  prototype.  However,  it  is  not  clear 
that  the  economies  of  scale  effect  would  continue  to  imple- 
ment more  complex  integrated  modules  in  the  future. 

6.  Prototypes  are  Disposable  Systems 

At  least  for  the  user  who  has  participated  through- 
out the  entire  design  and  implementation  process,  the  proto- 
type has  become  to  a  certain  degree  disposable.  Since  the 
participative  user  has  become  increasingly  computer  lite- 
rate, some  of  the  initially  requested  DSS  features  have 
revealed  to  be  less  useful.  In  fact,  the  ease-of-use  and 
structured  features  of  the  system  has  reduced  the  DSS  to 
perform  only  for  a  well-defined  set  of  data  manipulation  and 
reporting.  To  perform  unusual  data  manipulation,  a  trained 
user  can  now  directly  use  the  DSS  generator  command  lan- 
guage. However,  this  seems  to  be  true  only  for  the  user  who 
has  worked  closely  with  the  development  of  the  system. 
Other  users,  who  are  primarily  casual  users  and  non  computer 
experts,  are  expected  to  find  the  system  useful. 

B.  RECOMMENDATIONS  FOR  FUTURE  EXTENSIONS 

By  definition,  the  adaptive  design  should  help  the  system 
to  be  progressively  expanded.  The  current  system  primarily 
handles  data  management  and  report  generation.  There  are  a 
number  of  possible  enhancements  that  could  be  added  to  the 
current  release  of  the  AS  database  reporting  system. 
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1.  Forms  Handling 

The  AS  department  office  information  system  operates 
via  a  multiplicity  of  predesigned  paper  forms  such  as  travel 
orders,  purchasing  stubs,  reimbursement  forms,  etc..  These 
forms  have  been  processed  by  office  clerks  using  typewrit- 
ers. Additional  report  procedures  could  be  added  to  the 
current  release  of  the  AS  Database  Reporting  System  to 
generate  these  stub  from  the  computer  printers.  Such  a 
capability  would  significantly  improve  the  office  produc- 
tivity by  reducing  typing  errors,  and  duplication  of  effort 
in  twice  entering  the  same  set  of  information  using  both  the 
typewriter  and  the  computer. 

The  generation  of  office  forms  for  the  printer  can 
be  done  by  using  the  K-Report  report  generation  feature  to 
replicate  forms.  This  could  be  done  without  much  difficul- 
ty. It  should  be  noted  however  that  continuous  customized 
computer  forms  must  be  ordered. 

2.  Financial  Planning 

To  support  financial  planning,  data  that  reflect  the 
balances  of  various  expenses  accounts  should  be  rapidly 
computed.  Also,  the  user  should  be  able  to  import  selected 
data  from  data  tables  to  handle  spreadsheet  analysis.  The 
use  of  spreadsheets  would  allow  the  user  to  perform  what-if 
analysis  on  various  financial  decisions.  Furthermore,  a 
trend  analysis  can  be  supported  by  the  system  by  displaying 
various  graphical  charts  of  key  financial  figures.  To  imple- 
ment the  financial  planning  capability  to  the  system,  the 
following  steps  are  suggested: 

1.  Join  relevant  financial  data  tables  together. 

2.  >7rite  procedures  to  compute  conditional  aggregate 
values. 

3.  Import  aggregate  values  into  the  K-Man  spreadsheet. 

4.  Describe  procedural  steps  for  the  user  to  manipulate 
spreadsheet  functions. 

5.  Import  data  from  the  spreadsheet  to  the  K-Graph 
feature  for  graph  generation. 
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3.   Regulation  Engineering 

As  with  any  governmental  agency,  the  financial 
decision  making  process  has  to  strictly  follow  the  laws  and 
regulations  determined  by  the  Federal  Government.  These 
regulations  include  travel  expenses  (e.g.,  10%  money  cannot 
be  used  for  Invitational  Travel  Order),  personnel  (e.g.,  the 
OPTAR  account  cannot  be  used  for  personnel  salaries),  and 
equipment  purchases  (e.g.,  sole  source  justification  is 
needed  for  expenses  whose  amount  is  more  than  one  thousand 
dollars;  purchase  using  OM  &  U  funds  cannot  exceed  three 
thousand  dollars)  .  The  responsibility  to  make  sure  that 
financial  decisions  are  legal  relies  solely  on  the  user. 
Due  to  the  complexity  and  diverseness  of  regulations,  it 
would  be  useful  that  the  system  can  store  some  knowledge  in 
the  system.  The  latter  can  be  used  as  a  internal  comptrol- 
ler that  instantaneously  checks  the  legal  aspect  of  all 
financial  transactions. 

The  knowledge  on  various  legal  issues  and  financial 
practices  could  oe  acquired  and  integrated  into  the  current 
AS  database  reporting  system  by  using  GURU;  an  off-the-shelf 
expert  system  development  tool  and  a  by-product  that  can  be 
fully  interfaced  with  K-Man. 
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V.  CONOiUSIONS 

The  purpose  of  this  thesis  was  twofold: 

1.  To  use  the  adaptive  or  prototyping  approach  to  imple- 
ment a  data-oriented  DSS  for  cracking  financial  trans- 
actions of  the  Naval  Postgraduate  School's  Department 
of  Administrative  Sciences. 

2.  To  derive  from  the  system  development,  some  observa- 
tions on  the  impact  of  the  prototyping  approach  on 
systems  design. 

These  two  objectives  have  been  achieved.  First,  the  AS 
Database  Reporting  System  has  been  used  since  January  1936. 
The  system  has  gained  in  usage  as  the  system  has  benefited 
from  enhanced  capabilities.  Also,  the  number  of  systems 
users  has  also  increasing.  Travel  clerks  and  purchasing 
clerks  begin  to  use  the  system  on  a  regular  basis.  Various 
members  of  the  department  also  use  the  system  on  a  casual 
basis  via  the  Management  Assistant  who  is  currently  the 
database  administrator.  Second,  this  thesis  confirmed  some 
of  the  early  results  found  recently  on  the  DSS  literature 
regarding  the  DSS  design  strategy. 

The  results  of  this  study  was  reported  both  in  the  main 
body  of  the  thesis  and  the  appendices.  Chapter  I  described 
basic  concepts  and  issues  relating  to  prototyping.  Chapter 
II  reported  the  development  process  of  the  A3  Database  re- 
porting system  in  light  of  the  adaptive  design.  The  "Diary 
Approach"  was  adopted  to  record  development  activities  and 
the  interaction  between  the  user  and  the  system  developer. 
During  the  development  process,  close  interaction  with  the 
user  has  lead  to  three  modifications  of  the  AS  Reporting 
System  Architecture.  Chapter  III  analyzed  and  discussed  the 
results  of  the  experiment.  Some  suggestions  for  future 
extensions  of  the  current  database  were  also  presented.  The 
integration  of  spreadsheet  analysis,  graphical  displays,  and 
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a  knowledge-based  system  to  the  current  version  of  the 
AS  Database  Reporting  System  would  greatly  improve  the 
decision  support   role  of   the   implemented  financial   system. 
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I.   INTRODUCTION 

The  purpose  of  this  user's  manual  is  to  guide  the  first 
or  casual  user  to  get  acquainted  with  the  operations  of  the 
Administrative  Sciences  (AS)  Data  Base  Reporting  System  (the 
AS  System)  .  The  current  version  of  the  AS  System  is  an 
interactive,  menu  driven  data  base  management  system.  This 
system  is  used  to  input,  edit  and  store  the  U.S.  Naval 
Postgraduate  School's  Administrative  Sciences  Department's 
financial  data  (i.e.,  the  AS  Department's  OPTAR,  data  rela- 
tive to  the  AS  Department's  indirect  cost  and  research  ac- 
count, and  the  Department's  equipment  inventory)  and  to 
create  financial  reports  for  budgetary  planning.  Because 
this  is  a  menu  driven  system,  prior  programming  knowledge  is 
not  required  to  use  the  AS  System. 

For  the  sake  of  simplicity,  aspects  that  are  related  to 
the  conceptual  design  and  technical  specifications  of  the  AS 
System  are  described  in  separate  documents  —  the  Program- 
mer's Manual  and  the  thesis  titled  "The  AS  Financial  Report- 
ing System:  Some  Experience  on  Prototyping  and  User  Inter- 
action"; written  by  R.L.  Booker. 

This  manual  is  organized  as  follow.  General  and  most 
frequently  asked  information  are  provided  in  chapters  I 
through  III  while  more  specific  and  less  used  information 
are  provided  in  chapters  IV  and  V. 
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II.   PRINCIPAL  USERS 

The  principal  users  of  this  system  are  expected  to  be 
the  AS  Department's  Support  Services  Supervisor,  Management 
Assistant,  Travel  Clerk  and  Procurement  Clerk.  The  Manage- 
ment Assistant  is  the  AS  System's  Data  Base  Administrator 
(DBA) .  All  request  or  suggestions  for  changes  and  major 
problems  should  be  referred  to  the  Data  Base  Administrator. 

Table  I  indicates  some  functions  that  the  AS  System  can 
currently  provide  to  support  the  tasks  of  each  of  the  above 
mentioned  users. 


USERS 


DUTIES 


SYSTEM  SUPPORT 


Support  Services 
Supervisor 


Management  As- 
sistant 


Supervises,  plans  and 
coordinates  the  de- 
partment's support 
functions  and  cleri- 
cal support. 


Status  update  on 
personnel. 


Interprets  reports  of   Updates  financial 
all  financial  receipts,  balances  from 
expenditures  and  re-    purchase  and  tra- 
cords.   Identifies 
contributing  sources 
and  makes  comparisons 
to  establish  budget 
trends. 


vel  expenses  re- 
ports. 


Travel  Clerk 


Procurement 
Clerk 


Outstanding  TO(s) 
report 


Prepares  and  manages 
all  travel  related 
documents  for  de- 
partment.  Coordi- 
nates and  manages  all 
travel  related  ar- 
rangements. 


Receives  requests  for  Requisition  Sta- 
department  procure-  tus  and  Inventory 
ment.  reports 

TABLE  I.   SYSTEM  FUNCTIONS 
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III.   OPERATION  OF  SYSTEM 

A.  LOCATION 

The  System  is  resident  on  the  IBM-PC  XT  in  room  Inger- 
soll  230. 

B.  START-UP  (BOOT-UP) 

1.  Place  the  provided  DOS  version  2.1  diskette  in  flop- 
py drive  (slot)  A  of  the  PC;  the  left  drive  in  Fi- 
gure 1. 

2.  The  computer  and  printers  are  connected  to  a  toggle 
switch  under  the  computer  taole.  The  on-off  switch 
on  the  computer  should  always  be  in  the  on  position. 
Turn  the  toggle  switch  on  to  turn  the  computer  and 
printer  on.  The  computer  will  run  its  system's 
checks.  (Steps  1  and  2  are  considered  a  cold  start) 
Note  the  warm  start  procedures  below. 

3.  When  the  C>  prompt  appears,  type  in  KMAN  MAINMSN. 

4.  When  prompted,  type  in  your  name  and  password. 

5.  When  the  AS  System  menus  appear,  make  your  menu 
selections. 

Warm  Start  Procedures; 

If  the  power  has  been  previously  turned  on  and  the  provided 
DOS  version  2.1  diskette  has  been  previously  loaded,  steps  1 
and  2  of  the  start-up  instructions  may  be  ignored.  Instead, 
together  press  the  two  keys  marked  CONTROL  and  ALT,  and  then 
the  key  marked  DELETE  (This  is  considered  a  warm  start.). 
Now  perform  steps  3  through  5. 
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C.   EXIT 

1.  Select  the  last  option  in  the  main  menu  to  exit  the 
AS  System. 

2.  Turn  the  toggle  switch  off.  (power  off) 

3.  Take  the  diskette  out  of  the  computer. 


IBM  Monochrome  Display 


System  Lnit 


Keyboard 


Inch 
ette  Drives 


Figure   1.      IBM  PC 
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D.   DATA  MANIPULATION 

All  of  the  table  manipulation  instructions  are  displayed 
on  BLUE  menus.  The  following  options  are  available  for  each 
table: 

-  browse  a  table  :  allows  viewing  of  all  the 

records  in  a  table 

-  update  a  record  :  allows  modifications  of 

the  contents  of  records 
given  specific  selection 
criterion 

-  add  a  record  :  allows  the  addition  of  a 

record  to  a  table 

-  delete  a  record  :  allows  the  deletion  of  a 

record  from  a  table  based  on 
specific  criterion 

-  return  to  calling  menu    :  will  display  the  next 

higher  level  menu 

Appendix  B  is  a  chart  of  the  AS  Systems  menu's  hierarchy 
and  Appendix  C  displays  the  AS  System's  Menus. 

1.  To  View  All  of  the  Records  in  a  Table. 

Select  the  "browse  a  table"  option  in  the  specific 
table  menu.  A  form  will  appear  displaying  the  first  record 
within  the  table.  The  table  is  sorted  based  on  a  predeter- 
mined requirement.  The  bottom  of  the  form  contains  instruc- 
tions for  moving  the  cursor  on  the  form  and  for  viewing  the 
prior  or  next  record.  If  an  attempt  is  made  to  display  pass 
the  last  record  in  a  table,  the  cursor  will  move  to  the  BOT- 
TOM LEFT  corner  of  the  screen  and  the  table's  menu  will  be 
displayed. 

Note  —  Pressing  ESC  in  the  BOTTOM  LEFT  corner  be- 
low. 

2.  To  Update  a  Record  or  Group  of  Records  in  a  Table. 
Select  the  "update  a  record"  option  in  the  specific 

table's  menu.   A  form  will  appear  requesting  the  entry  of  a 
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specific  value  that  will  select  only  the  records  containing 
that  exact  value.   Enter  the  selection  value. 

a.  If  a  record  meets  the  selection  value  criterion, 
the  only  record,  or  the  first  record,  that  meets 
the  selection  criterion  will  be  displayed  on  a 
form.  The  bottom  of  the  form  contains  instruc- 
tions for  moving  the  cursor  on  the  form  and  for 
viewing  the  prior  or  next  record  that  meets  the 
selection  criterion.  If  an  attempt  is  made  to 
display  pass  the  last  record  that  meets  the 
selection  criterion,  the  cursor  will  move  to  the 
BOTTOM  LEFT  corner  of  the  screen  and  the  table's 
menu  will  be  displayed. 

b.  If  a  record  does  not  meet  the  selection  criteri- 
on, the  following  message  will  be  displayed  - 
"No  records  satisfy  this  request".  The  table's 
menu  will  then  be  displayed.  Confirm  that  the 
selection  value  was  entered  or  spelled  correctly 
by  selecting  the  "browse  a  table"  option. 
Repeat  the  steps  to  update  a  record.  If  the 
problem  continues,  notify  the  AS  System  Admini- 
strator. 

Note  -  Pressing  ESC  in  the  BOTTOM  LEFT  corner  below. 

3.  To  Add  a  Record. 

Select  the  "add  a  record"  option  in  the  specific 
table's  menu.  A  form  will  appear  in  which  the  data  for  a 
specific  record  is  entered.  The  form  contains  instructions 
for  moving  the  cursor  on  the  form. 

Note  -  Pressing  ESC  in  the  BOTTOM  LEFT  corner  below. 

4.  To  Delete  a  Record  in  a  Table. 

Select  the  "delete  a  record"  option  in  the  specific 
table's  menu.  A  form  will  appear  requesting  the  entry  of  a 
selection  value  that  will  enable  the  display  of  only  the 
record  (s)  containing  that  selection  value.   Enter  the  selec- 
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tion  value.  Another  form  will  appear  confirming  deletion  of 
a  record.  If  Y  is  entered,  you  are  committed  to  deleting  a 
record.  If  N  is  entered,  the  table's  menu  will  be  display- 
ed and  no  record (s)  will  be  deleted. 

If  Y  is  entered  for  deleting  a  record  and  a  record 
meets  the  selection  value,  the  only  record,  or  the  first 
record,  that  meets  the  selection  criterion  will  be  displayed 
on  a  form.  The  bottom  of  the  form  contains  instructions  for 
moving  the  cursor  on  the  form  and  for  viewing  the  prior  or 
next  record  that  meets  the  selection  criterion.  Place  the 
cursor  in  the  TOP  LEFT  corner  of  the  form  and  press  the  ESC 
key  to  delete  a  record.  ONLY  the  record  that  is  displayed 
when  the  ESC  key  is  pressed  will  be  deleted.  After  the  re- 
cord has  been  deleted,  the  taole's  menu  will  be  displayed. 

Note  -  Pressing  ESC  in  the  BOTTOM  LEFT  corner  below. 
WARNING 

If  more  than  one  record  meets  the  selection  criteri- 
on, all  of  the  records  that  meet  the  criterion  will  be  able 
to  be  displayed  and  deleted.  If  you  attempt  to  display  pass 
the  LAST  record  that  meets  this  criterion,  this  record  will 
be  DELETED  without  the  requirement  to  press  the  ESC  key. 
Therefore,  check  the  displayed  record  to  ensure  that  it  is 
not  the  record  for  deletion  before  attempting  to  display  the 
next  record.  Remember,  the  LAST  record  that  matches  your 
selection  criterion  will  be  DELETED  if  displaying  pass  the 
LAST  record  is  attempted. 

Pressing  ESC  in  the  BOTTOM  LEFT  Corner. 

If  ESC  is  pressed  while  the  cursor  is  in  the  BOTTOM  LEFT 
corner,  the  following  message  will  appear:  FEXIT  or  FABORT 
hit  -  are  you  sure  (Y/N)  ? 

-  Y  will  exit  the  AS  System. 

-  N  will  display  the  table's  or  report's  calling  menu. 
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E.   PRINTING  PREDEFINED  REPORTS 

For  the  current  version,  five  reports  have  been  gene- 
rated and  could  be  automatically  invoked.  These  include  the 
Quarterly  Inventory,  Outstanding  TO(s),  Personnel  Funding, 
Personnel  History  and  the  Requisition  Status  reports.  Ap- 
pendix D  contains  samples  of  the  AS  System's  Reports.  The 
menus  for  REPORT  printing  are  colored  BROWN.  Select  the 
menu  containing  the  report  that  is  required  to  be  printed. 
ENSURE  that  the  printer  is  CONNECTED  to  the  computer  and 
turned  ON.  Select  the  option  for  the  report  that  requires 
printing.  (Due  to  numerous  sorts  involved  in  printing  of  the 
Personnel  Funding  Report,  there  is  a  1-3  minute  wait  before 
the  report  is  printing.)  After  the  report  has  been  print- 
ed, the  calling  menu  will  be  displayed. 

Note  —  If  printing  of  a  report  is  attempted  while  the 
printer  is  not  on  or  connected  to  the  computer,  an 
error  message  will  be  displayed.  Connect  the  printer 
and  turn  it  on.   Now  attempt  to  print  the  report. 

Note  —  All  reports  are  formatted  for  the  NEC  3550  prin- 
ter. Use  of  other  printers  will  require  changes  to  the 
AS  System's  programs.  Notify  the  DBA  if  this  is  neces- 
sary. 
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IV.   TABLES 
The  AS  System's  data  is  stored  in  the  following  tables: 

1.  Indirect  -         information  on  research  and  other 

reimbursable  sources  of  funds  and 
resulting  Indirect  Costs  to  De- 
partment 

2.  OPTAR  -  contains  information  on  Depart- 

ment's operating  budget 

3.  Other  -  contains  information  on  other 

sources  of  Department  funding 

4.  Personnel  Funding  -  contains  personnel  expense  data 

5.  Personnel  History  -  contains  personnel  data  for  staff 

positions  within  the  AS  Department 

6.  Purchase  -         contains  data  on  Department  and 

research  purchases 

7.  Travel  Expenses  -   Department  and  Research  travel 

expenses 

A.   SOURCES  OF  DATA  FOR  TABLES 
Indirect  Table; 
M  U'U'iA   ~  entry  date  -  date  record  entered  into  the  AS  System 

-  status     -  if  research,  pending  when  first  entered 

into  AS  System  and  changed  to  funded  when 
funding  document  received  from  Comptroller 

-  if  other  reimbursable,  funded 

-  principal  -  if  research,  last  name  of  principal  inves- 

tigator on  proposal 

-  if  other  reimbursable,  from  Code  002  Reim- 
\^^                    bursable  Funds  Status  Report 
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-  sponsor    -  if  research,  from  proposal 

-  if  other  reimbursable,  source  from  Code  002 

Srrz  'tor 

Reimbursable  Funds  Status  Report 

-  proposal   -  if  research,  actual  title  of  proposal  (con- 

firm with  funding  document  when  funding 
sr(a  \\or  document  received) 

-  if  other  reimbursable,  title  from  Code  002 
Reimbursable  Funds  Status  Report 

-  period     -  if  research,  dates  specified  on  proposal 
srf^  lor  for  performance  of  research 

-  if  other  reimbursable,  no  entry 

-  estimate   -  if  research,  estimated  cost  of  research  for 

current  fiscal  year  from  proposal's  budget 
^4 .-- 

page 

-  if  other  reimbursable,  no  entry 

-  DEPTIC     -  if  research,  the  amount  that  the  department 

is  expected  to  receive  in  indirect  cost; 
calculated  from  the  proposal's  budget  page 
(10%  of  total  labor  charges) 

-  if  other  reimbursable,  no  entry 

-  MIPR       -  if  research,  MIPR  #  from  Block  #5  of  fund- 
s^L    is<  ing  document  C^ilitary  Inter-department 

Purchase  Request) 

-  if  other  reimbursable,  no  entry 

-  ref#       -  if  research.  Reference  #  from  Block  #5  of 

funding  document  (Order  for  iVork  and  Servi- 
ces,  NAVCOMPT  2275) 

-  if  other  reimbursable,  no  entry 

-  authorized  -  if  research,  actual  authorization  from  Code 

002  Memorandum  (Funds  Authorization  Grant/ 
Change) 

-  if  other  reimbursable,  act  auth  from  Code 
002  Reimbursable  Funds  Status  Report 
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-  costcode 


6T<     ir 


-  expiration 

fj      JM  -  Jo/      a/of 

-  ICRECD 

A/    f .'- 


-  Staff 

labor 

1^  * -  -  .  ^ 

-  as 

appropria- 
tion 


1^^- 


-  doc# 

-  segment 

-  serials 


if  research,  job  order  from  Code  002  Memo- 
randum (Funds  Authorization  Grant/Change) 
if  other  reimbursable,  JO  #  from  Code  002 
Reimbursable  Funds  Status  Report 
if  research,  exp  date  from  Code  002  Memo- 
randum (Funds  Authorization  Grant/Change) 
if  other  reimbursable,  exp  date  from  Code 
002  Reimbursable  Funds  Status  Report 
if  research.  Indirect  (Chairman)  from  Code 
002  Memorandum  (Funds  Authorization  Grant/ 
Change) 

if  other  reimbursable,  ind  cost  (chair) 
from  Code  002  Reimbursable  Funds  Status 
Report 

if  research,  total  of  all  support  labor 
on  proposal's  budget  page 
if  other  reimbursable,  no  entry 
if  research,  amount  which  the  principal 
investigator  agreed  to  give  the  Department 

if  other  reimbursable,  verbal  authorization 
from  principal  investigator  or  Department 
Chairman. 

if  research.  Document  #  from  Slock  #2  of 
funding  document  (Order  for  :7ork  and  Ser- 
vices, NAVCOMPT  2275) 

if  research,  segment  from  Code  002  Memoran- 
dum (Funds  Authorization  Grant/Change) 
if  other  reimbursable,  seg  from  Code  002 
Reimbursable  Funds  Status  Report 
if  research,  serial  t*s  from  Code  002  Memo- 
randum (Funds  Authorization  Grant/Change) 
if  other  reimbursable,  doc  #'s  from  Code 
002  Reimbursable  Funds  Status  Report 


^«  50/-   "  ^^^'^^^ 
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OPTAR  Tablet 
(J  M'M-J    ~  entry  date  -  date  record  added  to  AS  System 

-  date       -  date  of  latest  authorization  memo 

received 

-  authorized  -  total  amount  authorized;  from  Code  00  Memo- 

randum (Fiscal  Year  Interim  Operating  Tar- 
get) 

-  travel     -  amount  designated  for  travel;  from  Code  00 
authorized   Memorandum  (Fiscal  Year  Interim  Operating 

^  *  '  '     •  '  -     Target) 

-  actual     -  changes  in  authorized;  from  reissues  of 

Code  00  memorandum  (Fiscal  Year  Revised 
■^        -— •      Interim  Operating  Target) 

-  travel     -  changes  in  travel  authorized;  from  reissues 
actual       of  Code  00  Memorandum  (Fiscal  Year  Revised 

^^$  -'--  —  ^ Operating  Target) 

-  difference  -  (actual  -  authorized) ;  computed  by  AS  Sys- 


vifTofti.  fnen-o  tem 

-  travel     -  (travel  actual  -  travel  authorized) ;  compu- 


diff         ted  by  AS  System 


(TAc^twA,!  / 1  A^^ 
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other  Tablet 


-  entry  date 

-  status 

-  expiration 


-  principal 

-  sponsor 


-  proposal 

-  costcode 


5ti^   5  r 


"   authorized 
-  remarks 


-  comes  from  verbal  authorization  of  De- 
partment Chairman  or  Associate  Chairman  for 
Research  and  the  principal  investigator 
date  that  the  record  is  entered  into  the  AS 
System 

status  of  availability  of  funds  to  Depart- 
ment; pending,  received,  or  expired 
Expires  from  Research  Administration  print- 
out or  Exp  Date  from  Reimbursable  Funds 
Status  Report  provided  at  time  of  agreement 
Account  from  Research  Administration  print- 
out; or  principle  investigator  from  Reim- 
bursable Funds  Status  Report 
sponsor  from  Research  Administration  print- 
out or  source  from  Reimbursable  Funds  Sta- 
tus Report 

title  from  Research  Administration  printout 
or  Reimbursable  Funds  Status  Report 
cost  code  from  Research  Administration 
printout  or  J0#  from  Reimbursable  Funds 
Status  Report 

amount  agreed  upon  for  Departmental  use 
misc 
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Personnel  Funding  Table:  all  data  comes  from  the  depart- 
ment's outgoing  Support  Employment 
Schedule 

-  entry  date  -  date  of  record  entry  to  AS  System 

-  last  name   -  from  employee,  from  outgoing  Support  Em- 

ployment Schedule  Memorandum 

-  first  name  -  from  Personnel  History  table 

-  fund  date  -  date  of  outgoing  Support  Employment  Sche- 

dule Memorandum 

-  fund  from  -  date  funding  period  commences,  dates  from 

outgoing  Support  Employment  Schedule  Memo- 
randum 

-  fund  to    -  date  funding  period  terminates,  dates  from 

outgoing  Support  Employment  Schedule  Memo- 
randum 

-  #  of  days  -  number  of  8-hour  days  worked  during  funding 

period,  days  from  outgoing  Support  Employ- 
ment Schedule  Memorandum 

-  hours      -  number  of  hours  in  excess  of  8-hour  days 

worked,  hours  from  outgoing  Support  Employ- 
ment Schedule  Memorandum 

-  cost  code  -  from  outgoing  Support  Employment  Schedule 

-  code       -  from  the  following  department  codes: 

-  SS;  support  salaries 

-  amount     -  calculated  based  upon  rate  and  number  of 

days/hours  worked 

-  rate       -  employee's  rate  during  funding  period,  rate 

from  personnel  funding 

-  hours  per  -  number  of  hours  employee  worked  during 
week         funding  period,  hours  per  weeic  from  person- 
nel history 
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-  first 


-  DOB 


-  effective 


-  status 


-  billet 


TT 


Personnel  History  Table;. 

-  entry  date  -  date  record  is  entered  into  table 

-  last  name  -  from  block  #  1  of  Standard  Form  50  (Notifi- 

cation of  Personnel  Action 

-  from  block  #  1  of  Standard  Form  50  (Notifi- 
cation name  of  Personnel  Action) 

-  date  of  birth  from  block  #  4  of  Standard 
Form  50  (Notification  of  Personnel  Action) 

-  from  block  #  14  of  Standard  Form  50  (Noti- 
fication of  Personnel  Action) 

-  from  block  #  of  Standard  Form  50  (Notifi- 
cation of  Personnel  action) ;  T  =  tempora- 
ry; P  =  permanent 

-  from  block  #  27  of  Standard  Form  50  (Noti- 
fication of  Personnel  Action) ;  assigned  by 
CPO 

-  from  block  #  27  of  Standard  Form  50  (Noti- 
fication of  Personnel  Action) 

-  date  elements  and  standards  set  for  perfor- 
mance review;  from  current  performance  ap- 
praisal 

-  assigned  by  support  services  supervisor,  if 
any 

-  immediate  supervisor,  from  Block  S   of 
Position  director  Description  cover  sheet 

-  from  block  #  27  of  Position  Description 
cover  sheet  or  block  #  27  of  Standard  Form 
50  (Notification  of  Personnel  Action) 

-  from  block  #  29  of  Standard  Form  50  (Noti- 
fication of  Personnel  Action) 

-  from  block  #  30  of  Standard  Form  50  (Noti- 
fication of  Personnel  Action) 

-  from  block  #  31  of  Standard  Form  50  (Noti- 
fication of  Personnel  Action) 


-  job  title 

-  elements/ 
stds  set 

-  work  unit 

-  work 

-   PD  # 


-  series 

-  grade 

-  step 
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-  annual-     -.  from  block  #  32  of  Standard  Form  50  (Noti- 
salary       fication  of  Personnel  Action) 

-  hours  per   -  »  of  hours  worked  per  week,  from  Block  #  37 
week         of  Standard  Form  50  (Notification  of  Per- 
sonnel Action) 

-  expire     -  date  of  expiration  of  temporary  appoint- 

ment, from  block  #  18B  of  Standard  Form  50 
(Notification  of  Personnel  Action) 

-  rate       -  value  automatically  computed  by  the  System 

-  remarks    -  misc 
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Purchase  Tablet 

-  entry  date  -  date  that  the  record  is  entered  into  AS 

System 

-  document  #  -  from  block  #  36-43  of  DD  Form  1348  (Requi- 

sition System  Document) 

-  costcode   -  or  J0#,  from  block  #  46-50  of  DD  Form  1343 

(Requisition  System  Document) 

-  vendor     -  from  block  »  A  of  DD  Form  1348  (Requisition 

System  Document) 

-  item        -  from  block  #  8-22  of  DD  Form  1348  (Requi- 
description   sition  System  Document) 

-  stock  #     -  or  part  #,  from  block  #  3-22  or  Remarks  of 

DD  Form  1348  (Requisition  System  Document) 

-  estimate    -  from  block  #  T  of  DD  Form  1343  (Requisition 

System  Document) 

-  priority    -  from  block  #  60-61  of  DD  Form  1343  (Requi- 

sition System  Document) 

-  RDD        -  required  delivery  date,  from  block  #  62-64 

of  DD  Form  1348  (Requisition  System  Docu- 
ment) 

-  code        -  from  the  following  department  codes: 

-  LO;  transportation  of  things  (Federal 
Express) 

-  MR;  rental  of  equipment 

-  PM;  maintenance  of  minor  property 

-  PP;  maintenance  of  plant  property 

-  QH;  honoraria 

-  QT;  registration  fees 

-  TS;  consumable  supplies 

-  '/JM;  minor  property  acquisition 

-  WMC;  computer  equipment/accessories 

-  WP;  plant  property  acquisition 

-  WPC;  computer  equipment 

-  YP;  commercial  printing 
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-  requestor   -  last  name  of  individual  who  requested  pur- 

chase, from  Block:  #   of  DD  1348  (Requisi- 
tion System  Document) 

-  POif        -  purchase  order  #  from  31ock  #  2  of  DD  1155 

(Purchase  Order) 

-  received   -  date  item  received,  from  receiving  copy  of 

DD  1348  (Requisition  System  Document) 

-  firm       -  final  price,  from  Block  Q  of  DD  1348  (Re- 
price       quisition  System  Document)  or  Block  #  23  of 

DD  1155  (Purchase  Order) 

-  serial     -  if  a  plant  account  item,  from  equipment 

-  pair        -  plant  account  #,  from  inventory  records 

forwarded  by  receipt  control 

-  issue      -  name  of  individual  plant  account  equipment 

issued  to,  from 

-  location   -  location  of  plant  account  equipment,  from 

-  qty        -  from  Block  #   of  DD  1348  (Requisition  Sys- 

tem Document) 

-  remarks    -  misc 
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Travel  Expenses  Tablet 

-  departure  -  if  civilian  orders,  from  Block  #  lOB  of  DD 

1610  (Request  and  Authorization  for  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  #  9  of  NAV- 
PERS1320/16  (TEMADD  Travel  Orders) 

-  if  invitational  orders,  from  Proceed  on  or 
about  from  NAVSO4650/10  (Invitational  Tra- 
vel Order) 

-  requester  -  if  civilian  orders,  from  Block  #  2  of  DD 

1610  (Request  and  Authorization  for  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  #  3  of  MAV- 
PERS1320/16  (TEMADD  Travel  Orders) 

-  if  invitational  orders,  from  Block  #  1  of 
NAVSO4650/10  (Invitational  Travel  Order) 

-  location   -  destination  of  traveler 

-  if  civilian  orders,  from  Block  #  11  of  DD 
1610  (Request  and  Authorization  for  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  #  13  of  NAV- 
PERS1320/15  (TEMADD  Travel  Orders) 

-  if  invitational  orders,  from  Block  #  1  of 
NAVSO4650/10  (Invitational  Travel  Order) 

-  code       -  type  of  travel  from  the  following  depart- 

ment codes: 

-  EI;  invitational  travel 

-  ET;  TAD  travel 

-  estimate   -  estimated  cost  of  travel 

-  if  civilian  orders,  total  from  Block  #  14 
of  DD1610  (Request  and  Authorization  for 
Travel  of  DOD  Personnel) 

-  if  military  orders,  total  from  Block  #  18 
of  NAVPERS1320/16  (TEMADD  Travel  Orders) 
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-  if  invitational  orders,  from  for  the  pur- 
pose of  from  NAVSO4650/10  (Invitational 
Travel  Order) 

-  costcode   -  or  J0#,  from  travel  orders 

-  if  civilian  orders,  from  Block  #  19  (62217- 
XXXXX)  of  DD1610  (Request  and  Authorization 
for  Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  #  17(8)  of 
NAVPERS1320/16  (TEMADD  Travel  Order) 

-  if  invitational  orders,  from  Block  #  7 
(62271XXXXX)  of  NAVSO4650/10  (Invitational 
Travel  Order) 

-  doc  #      -  if  civilian  orders,  tango  from  Block  ^  19 

of  DD1610  (Request  and  Authorization  of  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  tango  from  Block  #  4  of 
NAVOERS1320/16  (TEMADD  Travel  Order) 

-  if  invitational  orders,  from  Block  #  7 
(ITXXXXX)  of  NAVSO4650/10  (Invitational 
Travel  Order) 

-  advance    -  if  civilian  orders,  from  Block  #15  of  DD- 

1610  (Request  and  Authorization  of  TDY 
Travel  of  DOD  Personnel) 

-  if  military  orders,  from  Block  #  21  of 
NAVPERS1320/15  (TEriADD  Travel  Order) 

-  if  invitational  orders,  no  entry 

-  return     -  date  of  return,  calculated  from  travel 

orders 

-  claim  date  -  from  Block  #  14  of  DD  Form  1351-2  (Travel 

Voucher  or  Sub-voucher) 

-  firm  price  -  total  of  Blocks  #7  and  #  10  from  DD  Form 

1351-2  (Travel  Voucher  or  Sub-voucher) 

-  entry  date  -  date  of  record  entry  to  AS  System 
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-  DOV  #      -  DO  Voucher  No.  from  Block  #  10  of  DD  Form 

1351-2  (Travel  Voucher  or  Sub-voucher) 
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Inventory  Table; 

-  pa#  -  plant  account  number,  from  Block  #  54  of  DD 
Str  cr    (\»^*^^       1342  (DOD  Property  Record) 

-  vendor  -  from  Block  #  14  of  DD  1342  (DOD  Property 
S-nu  ^o  /•  Record) 

-  description-  from  Block  *  26  of  DD  1342  (DOD  Property 
sre  so  ^  Record) 

-  serial  #  -  from  Block  #  17  of  DD  1342  (DOD  Property 

:ii/2.  \■^^^r  ReCOrd) 

-  P0#  -  purchase  order  number,  from  Block  #  25  of 
s-^^  "^^  DD  1342  (DOD  Property  Record) 

-  cost  -  from  Block  #  6  of  DD  1342  (DOD  Property 
(J  ^  -       •  —     Record) 

-  received  -  from  Block  #  54  of  DD  1342  (DOD  Property 
M  M-A<i  -U  Record) 

-  issue  -  from  Block  #  28  of  DD  1342  (DOD  Property 
-s>rA   ^-s  -r  Record) 

-  location  -  from  Block  #  28  of  DD  1342  (DOD  Property 
^ro.    -].  Record) 
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V.   ERRORS  AND  ABNORMAL  PRQCSSSING 

A.   ERRORS 

Notification  of  errors  are  given  by  two  methods: 

1.  The  AS  System  will  display  a  WHITS  on  RED  flashing 
message,  which  will  prompt  for  a  legal  entry.  When  enter- 
ing numbers,  only  use  the  numbers  along  the  top  of  the 
keyboard. 

2.  The  language  (KnowledgeMan)  or  the  Disk  Operating 
System  (DOS)  will  display  a  WHITE  on  3LACK  message.  The 
following  are  examples  of  messages  which  may  be  displayed: 

a.  Do  you  want  to  escape  (Y/N) ?  -  Normally  enter  N 
(no) . 

b.  <type>  error  reading  <device>;  Abort,  Retry,  Ignore? 
-  Normally  enter  R  (retry) . 

If  display  of  the  message  continues,  enter  A  (a- 
bort) . 

c.  A  warning  message  may  appear;  example  -  File  not 
found.  Note  the  error  message,  exit  the  AS  System, 
remove  the  diskette  and  notify  the  System  Admini- 
strator. 

3.   ABNORMAL  PxROCESSING 

If  the  AS  System  does  not  process  normally  (takes  a 
longer  than  normal  time  to  process),  press  the  ESC  key. 
Pressing  the  ESC  key  will  either  return  processing  to  the 
calling  menu  or  exit  the  AS  System  and  the  KnowledgeMan 
prompt  (  _  )  will  appear. 
Then  perform  the  following: 

1.   If  processing  is  returned  to  a  calling  module,  attempt 
to  continue  normal  processing.   If  the  problem  contin- 
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ues,  turn  the  power  off,  remove  the  diskette  and  noti- 
fy the  System  Administrator. 
2.  If  the  KnowledgeMan  prompt  (  _  )  appears,  type  in  KMAN 
MAINMSN  and  attempt  to  continue  normal  processing.  If 
the  problem  continues,  turn  the  power  off,  remove  the 
diskette  and  notify  the  System  Administrator. 
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APPENDIX  B 
Diagram  of  the  AS  System's  Menus 
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APPENDIX  C 
AS  SYSTEM'S  MENDS 


AS  Financial  Reporting  System 

Main  Menu 

1  -  Data  Base 

2  -  Reports  . 

3  -  To  Quit 

enter  your  selection  _ 
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Data  Base 

1  -  Expenses 

2  -  Income 

3  -  Property 

4  -  Return  to  calling  menu 

enter  your  selection  _ 
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Database  Expenses 

1  -  Personnel 

2  -  Travel 

3  -  Purchase 

4  -  Return  to  calling  menu 

enter  your  selection  _ 

1.1 
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Personnel 

1  -  Personnel  Funding 

2  -  Personnel  History 

3  -  Return  to  calling  menu 

enter  your  selection  _ 

1.1.1 
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Personnel  Funding  Expenses 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.1.1.1 
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Personnel  History  Expenses 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.1.1.2 
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Travel  Expenses 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection'  __ 


1.1.2 
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Purchase  Expenses 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.1.3 
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Data  Base  Income 

1  -  OPTAR 

2  -  Indirect 

3  -  Other 

4  -  Return  to  calling  menu 

enter  your  selection  _ 


1.2 
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OPTAR  Income 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.2.1 
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Indirect  Income 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.2.2 
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other  Income 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.2.3 
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Inventory  Property 

1  -  Browse  a  Table 

2  -  Update  a  Record 

3  -  Add  a  Record 

4  -  Delete  a  Record 

5  -  Return  to  calling  menu 

enter  your  selection  _ 


1.3 
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Reports 

1  -  Personnel 

2  -  Purchase 

3  -  Financial 

4  -  Travel  -  Outstanding  TO(s) 

5  -  Return  to  calling  menu 


TURN  THE  PRINTER  ON 


enter  your  selection  _ 
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Personnel  Reports 

1  -  Personnel  Funding 

2  -  Personnel  History 

3  -  Return  to  calling  menu 

enter  your  selection  _ 


2.1 
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Purchase  Reports 

1  -  Requisition  Status 

2  -  Quarterly  Inventory 

3  -  Return  to  calling  menu 

enter  your  selection  _ 


2.2 
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APPENDIX  D 
SAMPLE  AS    SYSTEL-I  REPORTS 
Outstanding  TO(s) 


0EPA-1TMSMT  OP  .\d:ii:iisthativb  3CIS:jCS3 

-=IE?0IIT:  0aTSTA;a)i:i3  T0(S) 


REPORT  DATS:  03/10/36 
REVISION  DATS: 


COST  CODE 

DOC  » 

S3D05 

6TOA2226 

EGD05 

6TOA2227 

EGOOO 

SITA3361 

SGDOO 

6TOA3350 

ESDOO 

6TOA3352 

ESDOO 

6ITA3351 

EGDOO 

.   6TQA3353 

EGDOO 

6TQA3354 

EGDOO 

6TOA3355 

EGDOO 

6TOA3361 

EGDOO 

6TOA3356 

EGOOO 

-  6TOA3357 

EGDOO 

6TOA33S8 

EGDOO 

6ITA3359 

EGDOO 

SITA3360 

GOCTN 

6TOA4820 

GUCTN 

6TOA4821 

NONE 

351201 

'.TONE 

351202 

RCAZ2 

STOA7002 

RCA22 

6TOA7001 

RCA22 

6TOA7003 

RCA22 

6TOA700S 

RCFCF 

6TOB7725 

RCFCF 

ST0A7727 

RCFCF 

6TOB7726 

RCFCF 

6T0B7727 

REQUESTOR 

Coffey 

Coffey 

esc 

Greer 

Schneidewind 

Suctian 

Maclcay 

Lander OS 

aaie 

Elaa 

Straub 

Widmeyer 

Conger 

Pracht 

Scbocken 

Haag 

Bui 

Evered 

McMasters 

Lapatra 

30DDEMBBRG 

LaPatra 

Jones 

Creighton 

Cielgnton 

Creighton 

Creigbton 


(XAIH 


DOV  J 


-  -  0 

-   -  0 

-  -  0 

85-11-12 

' 

85-12-02 

35-12-13 

X3559 

35-01-29 

'X4744 

1 

36-02-11 

X5185    J 

36-02-19 

X5374 

-  -  0 

'         " 

-  -  0 

-  -  0 

, 

-  -  0 

•1 

-   -  0 

-   -  0 

■ 

35-11-25 

• 

-   -  0 

• 

-   -  0 

-   -  0 

85-11-20 

35-12-04 

X3168 

35-12-12 

X3524 

36-01-29 

X4743 

-  -  0 

-   -  0 

-  -  0 

-  -  0 

Page  1 
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Personnel  Funding 
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0.00 

909.00 

fqm  1 


73 


Personnel  History 
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Quarterly  Inventory 
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Requisition  Status 
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I.   BACKGROUND 

The  Administrative  Sciences  (AS)  Data  3ase  Reporting 
System  (the  AS  System)  is  an  interactive,  menu  driven  data 
base  management  system.  This  system  is  used  to  input,  edit 
and  store  the  U.S.  Naval  Postgraduate  School's  Administra- 
tive Sciences  Department's  financial  data  (i.e.,  the  AS 
Department's  OPTAR,  data  relative  to  the  AS  Department's 
indirect  cost  and  research  accounts,  and  the  Department's 
equipment  inventory)  and  to  create  financial  reports.  This 
manual  is  not  a  tutorial  of  the  AS  System's  application 
language. 

II.   DATA  BASE  ADMINISTRATOR 

The  AS  Department's  Management  Assistant  is  the  AS 
System's  Administrator  and  Data  Base  Administrator  (DBA). 
The  duties  of  the  DBA  includes  defining  data  tables  and 
structures,  data  security,  program  and  systems  modifica- 
tions, system  documentation  and  user  training.  All  request 
or  suggestions  for  changes  and  major  problems  must  be  refer- 
red to  the  System's  Administrator. 
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III.   SYSTEM  DESIGN 

The  AS  System  performs  data  manipulation  and  report 
generation,  and  has  been  designed  along  these  two  functional 
paths.  Appendix  F,  the  AS  System's  data  flow  diagram  de- 
tails the  two  functional  paths.  Prototyping  was  used;  first 
perform  the  data  manipulation  for  one  table  and  the  report 
generation  for  one  report,  then  use  similar  logic  for  the 
other  tables  and  reports. 

A.  PxRIMARY   DESIGN   GOALS 

The  following  were  the  primary  design  goals  for  AS 
System: 

-  error  detection  and  correction 

-  ease  in  modifying  programs 

-  data  entry  editing 

-  ease  in  entering,  storing  and  modifying  data 

-  ease  in  creating  reports 

-  ease  in  operating  the  system 

-  ease  of  adding  follow-on  features  (i.e.,  spreadsheets, 
graphics,  etc.) 

In  an  attempt  to  accomplish  the  above  goals,  the  majori- 
ty of  this  System's  modules  deal  with  the  interface  between 
the  user  and  the  data,  instead  of  computations  upon  the 
data.  Due  to  these  design  goals,  the  System's  structure 
chart,  Appendix  G,  displays  a  great  deal  of  higher  level 
fan-out  and  minimal  lower  level  fan-in. 

B.  PROCESSING  LOGIC 

The  following  is  the  standard  processing  logic  of  the 
perform  files  (modules) : 

1.  Change  the  necessary  K-Man  environment  vari- 
ables. 

2.  Receive  passed  data  from  a  calling  module. 
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3.  Determine  if  user  wants  to  exit  module.  (Will  be 
no  on  first  entry  into  module.)  If  no  -  perform 
step  4.   If  yes  -  perform  step  8. 

4.  Display  and  accept  input  from  a  menu. 

5.  Error  check  the  menu  input. 

5a.        Display  and  accept  input  from  an 

error  form  and  repeat  step  5  (If  menu 
entry  was  an  error.). 

6.  Perform  function  of  module  or  call  a 
subordinate  module. 

7.  Repeat  step  3. 

8.  Ensure  that  the  changed  K-Man  environmental 
variables  are  set  to  the  default  values. 

9.  Change  the  necessary  variable  to  ensure  that  a 
blank  appears  at  the  calling  menu's  prompt. 
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IV.   APPLICATION  LANGUAGE 

The  application  language  used  for  the  AS  System  is 
KnowledgeMan  (K-Man)  ,  version  1.07;  which  is  developed  by 
Micro  Data  Base  Systems,  Inc.,  Lafayette,  Indiana.  Know- 
ledgeMan is  a  database  management  system  which  is  designed 
to  operate  on  a  microcomputer.  The  AS  System  uses  the  fol- 
lowing KnowledgeMan  capaoilities: 

-  Data  Management 

-  Screen  Input/Output  Management 

-  Printed  Forms  (Reports)  Management 

-  Procedures 

Future    development    of    the    AS    System    can    accommodate    the 
following: 

-  Statistical  Analysis 

-  Spreadsheet  Analysis 

-  Calculations 

-  Functions 

-  Graphics 

-  Integration  with  other  financial  packages;  i.e.  IFPS 

V.   SCREEN  INPUT/OUTPUT  MANAGEMENT 

The  AS  System  uses  predefined  forms  for  menus,  data 
entry  and  data  display.  Menus  and  data  entry/display  forms 
prompt  the  user  for  entries.  The  AS  System  is  designed  for 
a  novice  user,  therefore  prompts  and  instructions  are  uti- 
lized instead  of  command  entries.  Each  menu  and  data 
entry/display  form  also  edits  the  user's  input  by  using 
KnowledgeMan 's  "picture"  capability.  If  a  wrong  entry  is 
made,  an  error  form  is  displayed  that  notifies  the  user  of 
an  error  and  prompts  for  a  correct  entry.  Appendix  3  is 
a  hierarchical  chart  of  the  AS  System's  menus  and  Appendix  C 
contains  each  system  menu. 
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KnowledgeMan ' s  optional  interactive  forms  painting 
component  (K-Paint)  was  used  to  create  the  System's  menus 
and  entry/display  forms.  The  K-Paint  files  are  included 
with  the  AS  System's  K-Man  files. 
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VI.   FILES 

The  following  file  name  extensions  are  used  by  the  A3 
System: 

-  EXE  —  a  K-Man  execute  file 

-  ICF  —  context  file,  which  saves  a  former  state  of 

K-Man  processing  in  an  encrypted  format  so  that 
it  can  be  resumed  later  (menus  and  forms) 

-  IGU  —  user/password  security  file  (a  K-Man  file) 

-  INC  —   include  file  (a  K-Man  file) 

-  IPF  —  perform  file,  which  holds  a  sequence  of  K-Man 

commands  (except  for  forms  and  menus,  the  code 
for  these  files  is  contained  in  Appendix  J) 

-  OVL  —  K-Man  overlay  files 

-  TPL  —  report  templates  (created  with  K-Report) 

A.   PERFORM  FILES 

The  following  are  the  AS  System's  perform  files: 

brwtable  outstrpt 

crtrecrd  persdmen 

dbmen  pfunddlt 

deltrecl  pfundmen 

deltrec2  pfundrpt 

expenmen  pfundupd 

incommen  phistdlt 

indirdlt  phistmen 

indirmen  phistrpt 

indirupd  phistupd 

invendlt  prprtraen 

invenraen  purchdlt 

invenrpt  purchmen 

invenupd  purchupd 
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purrtmen 
reprtmen 
requsrpt 
travlraen 
tvlexdlt 
tvlexupd 
updrecrd 


mammen 
optardlt 
optarmen 
optarupd 
otherdlt 
othermen 
otherupd 
Naming  convention: 

*.ipf  —  (  *  =  function  performed) 

-  *men.ipf  —  (  This  file  displays  a  menu  and  perform  a 

selected  option.   *  =  function  selected  or 
table  requested) 

-  *dlt.ipf  —  (  This  file  is  required  to  delete  a  record 

from  a  table.   *  =  table's  name) 

-  *rpt.ipf  —  (  This  file  creates  a  report.   *  =  report's 

name) 

-  *upd.ipf  —  (  This  file  is  required  to  update  a  record 

in  a  table.   *  =  table's  name) 
The  above  files  were  created  with  a  text  editor.   Listings 
of  the  perform  files  are  contained  in  Appendix  I. 


B.   ERROR  AND  MESSAGE  FORMS 

The  following  are  the  AS  System's  error  and  message 
forms: 


-  delerfrm 

-  erlindir 

-  er2indir 

-  eroinven 

-  erooptar 

-  eropfund 

-  erophist 

-  erotvlex 

-  errorfrm 


.icf  &  .ipf) 

.icf  &  .ipf) 

.icf  &  .ipf) 

.icf  &  .ipf) 

.icf  St  .ipf) 

.icf  &  .ipf) 

.icf  &  .ipf) 

.icf  &  .ipf) 

.icf  St  .ipf) 
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Naming  convention: 

-  ero*.(.icf  or  .ipf)  —  (  *  =  table's  name) 
The  above  files  were  created,  and  may  be  viewed,  by  using  K- 
Paint. 

C.   FORMS 

The  following  are  the  AS  System's  forms: 

deletfrm  tabldfrm 

delqsfrm  trpldfrm 


indelf rm 
indircrt 
indirdel 
indirect 
inupdf rm 


pfdelf rm 
pf undcrt 
pf unddel 
pf unding 
pfupdf rm 


invencrt 
invendel 
inventor 
ivdelf rm 
ivupdf rm 


phdelf rm 
phistcrt 
phistdel 
phistory 
phupdf rm 


opdelf rm 
optar 
optarcrt 
optardel 
opupdf rm 


pudelf rm 
purchase 
purchcrt 
purchdel 
puupdf rm 


otdelf rm 
other 
othercrt 
otherdel 
otupdf rm 


tvdelf rm 
tvlexcrt 
tvlexdel 
tvlexp 
tvupdf rm 
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Naming  convention: 

All  of  the  above  files  have  an  .icf  or  .ipf  extension.   The 

".icf"  files  are  saved  for  K-Paint  usage.   The  ".ipf"  files 

are  performed  by  an  AS  System  module  (file) . 

*crt.  —  (A  form  on  which  a  user  enters 

data  to  create  a  record  —  an 
entry  form.   *  =  table's  name) 

-  *delfrm.  —  (A  form  on  which  a  user  enters  a 

field's  value  that  is  used  to 
select  which  record  may  be  dele- 
ted.  *  =  table's  name) 

-  *del.  —  (A  form  that  display's  a  record 

that  may  be  deleted  —  a  deletion 
form.   *  =  table's  name) 
*.  (icf  &  ipf) —  (A  form  that  displays  a  record 

when  a  user  elects  to  browse  a 
table  or  update  a  record  —  an 
entry  form.   *  =  table's  name) 

-  *updfrm.  —  (A  form  on  which  a  user  enters  a 

field's  value  that  is  used  to 
select  which  records  may  be  updat- 
ed.  *  =  table's  name) 
The  above  files  were  created  by  using  K-Paint. 

D.   REPORTS 

The  following  are  the  AS  System's  reports: 

-  invenrpt.tpl  —  Quarterly  Inventory 

-  outstrpt.tpl  —  Outstanding  TO(s) 

-  pfundrpt.tpl  —  Personnel  Funding 

-  phistrpt.tpl  —  Personnel  History 

-  requsrpt.tpl  —  Requisition  Status 

The  above  files  were  created,  and  the  structure  may  be 
viewed,  by  using  K-Report. 
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E.   MENUS 

The  following  are  the  AS  Systems  menus: 
expenfrm  pfundfrm 

incomfrm  phistfrm 

indirfrm  prprtfrm 

invenfrm  purchfrm 

mainfrm  purrtfrm 

optarfrm  reprtfrm 

otherfrm  travfrm 

persdf rm 

Naming  convention: 

-  *frm. (icf  &  ipf )  —  (  *  =  the  subject  table  or  purpose 

of  menu;  i.e.  phistfrm  is  the  menu 
for  the  phistory  table) 
The  above  files  were  created  by  using  K-Paint. 

P.   TABLES 

The  following  are  the  tables  for  the  AS  System: 

-  indirect. itb  —  Indirect  Income 

-  inventor. itb  —  Inventory  Property 

-  optar.itb  —  OPTAR  Income 

-  other. itb  —  Other  Income 

-  pfunding.itb  —  Personnel  Funding  Expenses 

-  phistory. itb  —  Personnel  History  Expenses 

-  purchase. itb  —  Purchase  Expenses 

-  tvlexp.itb  —  Travel  Expenses 

The  above  tables  were  created  by  using  K-Man's  command 
language. 
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VII.   DATA  iMANAGSMSNT 

The  AS  System's  data  is  organized  into  tables.  Each 
field  within  each  table  has  a  specific  size  and  type  (nume- 
ric, string  or  logical).  Each  file  has  a  "picture",  which 
KnowledgeMan  uses  to  edit  a  field's  value.  The  formats  of 
the  AS  System's  tables  are  contained  in  Appendix  J  and  the 
field  definitions  are  contained  in  Appendix  H.  Because  the 
AS  System's  users  had  previously  used  KnowledgeMan  in  an  ad 
hoc  query  mode,  and  to  decrease  processing  time,  this  is  not 
a  relational  data  base;  there  is  a  duplication  of  data 
between  some  tables. 

User  access  may  be  limited  to  tables  and  fields  within 
tables.  The  use  of  this  data  security  capability  is  the 
responsibility  of  the  DBA. 


33 


VII.       AS    SYSTEM    REQUIREMENTS 

A.  REFERENCES 

The  following  references  are  necessary  for  successfully 
programming  the  AS  System: 

-  KnowledgeMan  Reference  Manual 

-  Interactive  Forms  Painting  (K-Paint);  Supplement  #1  to 
the  KnowledgeMan  Reference  Manual 

*  -  Full-Screen  Text  Processor  (K-Text)  ;  Supplement  #2  to 
the  KnowledgeMan  Reference  Manual  or  another  text  editor 

-  Custom  Report  Generation  (K-Report) ;  Supplement  #5  to 
the  KnowledgeMan  Reference  Manual 

The  following  references  are  helpful  for  successfully 
programming  the  AS  System: 

-  Disk  Operating  System  (version  2.1)  by  Microsoft  Corp. 

-  The  Beginner's  Guide  to  KnowledgeMan 

-  Discovering  KnowledgeMan;  published  by  the  Howard  Sams 
Co.,   Indianapolis 

-  The  Book  of  KnowledgeMan;  by  Gilbert  M.  Roeder 

B .  S0FT:7ARE 

The   following   software   is   required   for   operating   the  AS 
System: 

-  DOS,    version   2.1   —  The    CONFIG.SYS    file    must    have 

buffers  set  to  at  least  10.  The 
AS  System  has  buffers=ll.  Each 
additional  buffer  cost  an  addi- 
tional 528  bytes  of  memory,  but 
may   result   in  faster  processing. 
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Note  —  A  diskette  has  been  provided  to  the  DBA  which 
contains  DOS  version  2.1  and  the  following  commands  in 
AUTOEXEC.BAT: 

C: 

SETCLOCX 

PATH    C:\AS\Ki*4AN 

CD  C:\AS\SYSTEM 

(With  the  current  equipment,  the  AS  System's  files  are 

stored  in  drive  "C",  sub-directory  \AS\SYSTSM.   Know- 

ledgeMan,  K-Paint,  K-Report  and  K-Text  are  stored  in  "C" 

drive,  sub-directory  \AS\k:ian.  ) 

-  K-Man,  version  1.07  (PCDOS,  IBM  PC) 

-  K-Paint,  version  1.07  (PCDOS,  IBM  PC) 

-  K-Report,  version  1.07  (PCDOS,  IBM  PC) 

-  K-Text,  version  1.07  (PCDOS,  IBM  PC)  or  another  text 
editor   (Kedit  was  used  to  create  this  system's  perform  files 

C.   HARDWARE 

-  Minimum  RAM  of  192K 

-  Minimum  mass  disk  storage  of  500K 
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APPENDIX  F 
DATA  FLOW  DIAGRAM 
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APPENDIX  G 
STRUCTURE  CHART 


This  appendix  contains  the  structure  chart  of  the  AS 
System's  perform  files  (.IPF).   All  modules  are  numbered, 
except  the  menus  and  forms.   The  modules  that  are  called  by 
several  other  modules  are  connected  via  a  small  box  which 
contains  a  roman  numeral.   All  modules  are  called  condition- 
ally. 


i  I 


a. 


DBMEN 

1. 

REPRTMEN 


DATA:  a.  FORMANS 
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a. 


a. 


!    INCQMMEN 


1.  2 


I 

!  I 


I 


I  ! 


!  a. 


INVENMEN 


1.  3 


DATA:  a.  FQRMANS 
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a.  I 

V 


EXPENFRM 


I  I  I 
I  I 
a.  I  I  a. 


PERSDFRM 


EXPENMEN 


1.  1 


a. 


1    r 


I. 


a. 


TRAVLWEN 


J     ! 


1.  1.  2 


!  a. 


PURCHMEN 


1.  1.  3 


DATA:  a.  FQRMANS 
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a. 


PFUNDMEN        j 
1 

f 

_ 

1.  1.  1.  1 
1 

A 

a. 

A 

A 

1 

A 

a. 

b. 

a. 

b. 

a. 

V 

V 

V 

DATA:  a.  FQRMANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  COND ; 

d.  TABLE,  PASSVAR,  PASSCQND;  e.  ENTRYONE,  ENTRYTWO 
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PFUPDFRM 


PHDELFRM 


DATA:  a.  FORMANS;  b.  TABLE;  c.  TABLE,  UFDATVAR,  COND; 
d.  TABLE,  PASSVAR,  PASSCOND;  e.  ENTRYONE 
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a. 


a. 


e. 


TVUPDFRM 


TRAVLMEN 


1.  1.  2 


b. 


a. 


II. 


b. 


a. 


!  III. 


jia. 


e. 


c. 


EROTVLEX 


J     L 


a. 


TVLEXDLT 


1.  1.  2. 


IV. 


->   d. 


e. 


e. 


TVDELFRM 


EROTVLEX 


V  j 
V. 


DATA:  a.  FORMANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  CQND; 
d.  TABLE,  PASSVAR,  PASSCQND;  e.  ENTRYONE 
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PUUPDFRM 


DATA:  a.  FORMANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  COND; 
d.  TABLE,  PASSVAR,  PASSCOND;  e.  ENTRYQNE 
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a. 


DATA:     a.     FQRMANS 
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-^^ 

< 

QPDELFRM 


DATA:  a.  FORMANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  CQND ; 

d.  TABLE,  PASSVAR,  PASSCOND;  e.  ENTRYQNE,  ENTRYTWO 
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1 
INDIRUPD 

1.  2.  2.  1 

1              i 
i              i 

INDIRDLT 


1.  2.  2.2 


e. 


IV. 


f. 


-J       ' 


f. 


I  I  i 
d.  I  I  I  a. 

V  i 


INDELFRM 


ERIINDIR 


V. 


!  il 


DATA:  a.  FORWANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  COND;  d.  TABLE, 
PASSVAR,  PASSCOND;  e.  ENTRYONE,  ENTRYTWO;  f.  ENTRYQNE 
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OTUPDFRM 


ER2INDIR 


J     L 


f. 


!  I  a« 


1 ,^ 

OTHERDLT        j 
i 

1.  2. 

1 

1 

3.  2! 

1 

r^ 

1 
1 

i 

i 
i 
1 

1 

i 
! 

QTDELFRM 


d.  i  I  ja. 

VI 


DATA:  a.  FORMANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  COND;  d.  TABLE, 
PASSVAR,  PASSCQND;  e.  ENTRYQNE,  ENTRYTWQ;  f.  ENTRYQNE 
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IVUPDFRrt 


DATA:  a.  FQRMANS;  b.  TABLE;  c.  TABLE,  UPDATVAR,  COND; 

d.  TABLE,  PASSVAR,  PASSCOND;  e.  ENTRYONE,  ENTRYTWO 
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a. 


a. 


REPRTFRM 


I 


REPRTMEN 


2.0 


I. 


a. 


PRPRTMEN 


2.  1 


PURRTMEN 


2.  2 


A 

I 
( 

!  a. 


QUTSTRPT 


2.  3i 


VII. 


DATA:  a.  FQRMANS 
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a. 


DATA:  a.  FQRMANS 
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a. 


PURRTFRM 


DATA:  a.  FQRMANS 
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FORMANS 


i    VII.           1 

,.„.,.. 

loa 


TABLE 


FORMANS 


VI-. 


INDIRECT 


INVENTOR 


QPTAR 


PURCHASE 


j_ 


PHISTQRY 


_L 


PFUNDING 
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INVENCRT 


QPTARCRT 


OTHERCRT 
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I   V. 


I 


a. 

d. 

V 

DELTRECl 

b. 


DELERFRM 


DATA:  a.  TABLE,  PASSVAR,  PASSCQND?  b.  DELTANS; 
c.  PASTABLE,  DELTVAR,  COND;   d.  FQRMANS 
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DELTREC2 


VI, 


INDIRDEL 


INVENDEL 


DELETFRM 


!   PURCHDEL 


i   I 


TVLEXDEL 


J    L 
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I    I 


TABLE,  UPDATVAR,  CQND 


FORMANS 


INVENTOR 
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APPENDIX  H 
DATA  DICTIONARY 


DATA  DICTIONARY 

Format  of  elements:  Name,  allowable  values,  format  description, 
files  inwhich  the  element  is  used  (.IFF  files  unless  noted), 
and  read  and  write  access  (DBA  has  table  matching  access  codes 
to  individuals) . 

Allowable  values;  nura  =  numeric,  str  =  string,  logic  =  logical. 

Format;  d  =  place  holder  for  a  digit  or  a  sign. 
r  =  placeholder  for  any  ASCII  character. 
%5r  =  rrrrr;  repeat  the  code  the  number  of  times  as 
the  number 
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I 


COND 


which 
dating  or 


NUM  0,  1  or  2       «  V. 
condition  has  been  selected 
deleting  a  record  '^  ■ 


A  variable  used  to  determine 
by  a  user  for  either  up- 
>uauj.ny  wt  vacxcuAny  a  j.cv-v--i.^  from  a  table.  (0  =  only  1  con- 
dition displayed  by  updating  or  deletion  form,  1  =  1st 
condition  was  selected  and  2  =  2nd  condition  was  selected) 
DELTRECl,  DELTREC2,  INDIRUPD,  INVENUPD,  OPTARUPD,  OTHERUPD, 
PFUNDUPD,  PHISTUPD,  PURCHUPD,  TVLEXUPD,  QPDRECRD 


I 
I 


DELTANS      STR  (Y,N,y,n)         A  variable  which  determines 
if  a  user  is  sure  that  a  record  is  required  to  be  deleted, 
DELERFRM,  DELERFRM. ICF,  DELQSFRM,  DELQSFRM. ICF, 


DELTRECl 


DELTVAR      STR  or  NUM  A  variable  which  is  used  to 

determine  which  selection  criterion  is  used  to  delete  a 

record.  (DELTVAR  equals  a  specific  field's  value.) 
DELTREC2 

ENTRYONE     STR  or  MUM  A  variable  which  is  updated 

by  entering  data  onto  to  a  update  or  deletion  selection 
form  or  an  error  form.   The  only  records  that  will  be  dis- 
played contains  a  field's  value  that  matches  ENTRYONE. 
(i.e.  ENTRYONE  =  "Smith"  will  only  display  records  that 
LNAi«lE  =  "Smith") 

.IPF  &  .ICF),  ER2INDIR(.IPF  &  .ICF), 
.IPF  &  .ICF),  EROPFUND ( . IPF  &  .ICF), 
.IPF  &  .ICF),  EROPHIST(.IPF  &  .ICF), 
.IPF  &  .ICF) , 


contains 
ERIINDIR 
EROINVEN 
EROOPTAR 
EROTVLEX 


INDELFRM 
INUPDFRM 

INVENDLT, 
IVUPDFRxM 

OPDELFRM 
OPUPDFRM 

OTDELFRM 
OTUPDFRI-1 

PFDELFRIl 
PFUPDFRM 

PHDELFRM 
PHUPDFRM 

PUDELFRiM 
PUUPDFRH 

TVDELFRM 
TVUPDFR24 


IPF  &  .ICF),  INDIRDLT,  IMDIRUPD, 
IPF  &  .ICF) , 

INVENUPD,  IVDELFRM ( . IPF  &  .ICF), 
IPF  &  .ICF) , 

IPF  &  .ICF),  OPTARDLT,  OPTARUPD, 
IPF  &  .ICF) , 

IPF  &  .ICF),  OTHEHDLT,  OTHERUPD, 
IPF  &  .ICF) , 

IPF  &  .ICF),  PFUNDDLT,  PFUNDUPD, 
IPF  &  .ICF) , 

IPF  &  .ICF),  PHISTDLT,  PHISTUPD, 
IPF  &  .ICF) , 

IPF  &  .ICF),  PURCHDLT,  PURCHUPD, 
IPF  &  .ICF) , 

IPF  &  .ICF),  TVLEXDLT,  TVLEXUPD, 
IPF  &  .ICF) 
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ENTRYTWO     STR  or  NUM  A  variable  which  is  updated 

by  entering  data  onto  to  a  update  or  deletion  selection 
form  or  an  error  form.   The  only  records  that  will  oe  dis- 
played contains  a  field's  value  that  matches  ENTRYONE 
(i.e.  ENTRYONE  =  "Smith"  will  only  display  records  that 
contains  LNAME  =  "Smith").   Used  if  there  are  two  fields 
which  may  be  used  for  updates  or  deletions.) 
ER2INDIR(.IPF  &  .ICF),  EROINVEN ( . IPF  &  .ICF), 
EROPFUND ( . IPF  &  .ICF),  EROOPTAR ( . IPF  &  .ICF), 

INDIRUPD,  INUPDFRM ( . IPF  &  .ICF), 

INVENDLT,  INVENUPD,  IVDELFRII  ( .  IPF  &  .ICF), 
IVUPDFRU ( . IPF  &  . ICF ) , 

OPDELFRMC.IPF  &  .ICF),  OPTARDLT,  OPTARUPD, 
OPUPDFRM(.IPF  &  .ICF), 

OTHERUPD,  0TUPDFR:1(.IPF  &  .ICF), 
PFDELFRM(.I?F  &  .ICF),  PFUNDDLT,  PFUNDUPD, 
PrUPDFRM(.IPF  &  .ICF) 

F0R:4ANS       STR  (1,  2,  3,  4  or  5)     The  displayed  menu's 
option  that  is  selected  by  the  user. 

BRWTABLE,  CRTRECRD,  DBF0RM(.IPF  &  .ICF),  DBMEN,  D2LTRSC1, 
ERRORFRM ( . IPF  &  . ICF ) , 
EXPENFRI'K.IPF  &  .ICF),  EXPENMEN, 
INCOMFRM(.IPF  &  .ICF),  IZ^COMMEN, 

INDIRDLT,  INDIRFRM(.IPF  &  .ICF),  INDIRMEN,  i:iDIRUPD, 

INVENDLT,  INVENFRM(.IPF  &  .ICF),  INVENHEN,  INVENRPT, 
INVENUPD,  MAINFRM(.IPF  &  .ICF),  MAINMEN, 

OPTARDLT,  0PTARFRM(.IPF  &  .ICF),  OPTARMEN,   OPTARUPD, 
OTHERDLT,  OTHSRFRM ( . IPF  &  .ICF),  OTHERMEN,  OTHERUPD, 
OUTSTRPT,  PERSDMEN, 

PFUNDDLT,  PFUNDFRI-K.IPF  &  .ICF),  PFUNDMEN,  PFUNDRPT, 
PFUNDUPD, 

PHISTDLT,  PHISTFRM(.IPF  &  .ICF),  PHISTMSN,  PHISTRPT, 
PHISTUPD,  PRPRTMEN, 

PURCHDLT,  PURCHFRM ( . IPF  &  .ICF),  PURCHMEN,  PURCHUPD, 

PURRTFRn ( . IPF  &  .ICF),  PURRTMEN,  REPRTFRIl  ( . IPF  &  .ICF), 
REPRTMEN,  REQUSRPT, 

TRAVFRM(.IPF  &  .ICF),  TRAVLMEN,  TVLEXDLT,  TVLEXUPD, 
UP RE CRD 
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INDIRECT. ASAPPRO   NUM   $ddddd.dd 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 

Read  Access  :  A 

:7rite  Access  :  A 


INDIRECT. AUTH      NUM   $ddddddd.dd  Total  amount  authorized 
for  research  project. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHUKLMNOP 


INDIRECT. COSTCODE   STR   %5r        Costcode  or  Job  Order  # 
INDIRECT.  ITB,  INDIxRECT,  INDIRECT.  ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF,  UPDRECRD 

Read   Access  :  A3CDEFGHIJKLMN0P 

'//rite  Access  :  A3CDSFGHIJKL:IN0P 


INDIRECT. DEPTIC    NUM   $ddddd.dd  Amount  anticipated  for 
indirect  costs. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read   Access  :  ABCDEFGHUKLMNOP 
'Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. DOC#      STR  %15r       Document  #. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 

Read  Access  :  A 

Write  Access  :  A 


INDIRECT. ENTRY     NUM  dd-dd-dd    Date  the  entry  is  made. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 

INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. ESTIMATE   NUM   $ddddddd.dd   Estimated  cost  of  research, 
INDIRECT.  ITB,  INDIRECT,  INDIRECT.  ICF,  I^IDIRCRT, 
INDIRCRT. ICF,  INDIRDEL,  INDIRDEL. ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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INDIRECT. EXPIRE    NUM   dd-dd-dd   Date  of  expipation  of  funds 
DELTREC2,  INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. ICRECD    NUM   $ddddd.dd  Actual  indirect  costs  re- 
ceived from  project. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

^-Jrite  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. MIPR#     STR  %15r       MIPR#  from  acceptance  docu- 
ment . 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 

INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. PERIOD    STR  %20r       Dates  specified  on  proposal 
for  performance  of  research. 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. PRINCIPL   STR  %20r       Last  name  of  principal  inves- 
tigator. 

BRWTABLE,  INDIRECT. ITB ,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF,  QPDRECRD 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. PROPOSAL   STR   %130r      Title  of  proposal. 
INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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STR  %25r 


INDIRECT. REF# 
document, 

INDIRECT. IT3,  INDIRECT,  INDIRECT. ICF, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
:<lrite   Access  :  ABCDEFGHIJXLMNOP 


Reference  #  from  acceptance 
INDIRCRTr 


INDIRECT. REMARKS   STR   %50r       Remarks 
INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRCRT, 


INDIRECT. SEGMENT    STR   %6r 
INDIRECT. ITB,  INDIRECT, 
INDIRCRT.ICF,  INDIRDEL, 

Read  Access  :  A 

//rite  Access    :    A 


Segment 
INDIRECT. ICF, 
INDIRDEL.ICF 


# 
INDIRCRT, 


INDIRECT. SERIALS    NUM   dddd-dddd   Serial 

INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 

Read  Access  :  A 

Write  Access  :  A 


INDIRECT. SPONSOR    STR   %40r        Name  of 
INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


project  sponsor 
INDIRCRT,' 


INDIRECT. STAFFLBR  NUM   $ddddd.dd   Total  of  support  laoor. 
INDIRECT. ITB,  INDIRECT,  INDIRECT. ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


INDIRECT. STATUS    STR   %25r       Status  of  proposal 
INDIRECT.  ITB,  I^IDIRECT,  INDIRECT.  ICF,  INDIRCRT, 
INDIRCRT.ICF,  INDIRDEL,  INDIRDEL.ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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J 


INVENTOR. COST      NUM   $dddddd.dd 

INVEOTOR.ITB,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT.ICF,  INVENDEL,  INVENDEL . ICF,  INVENRPT.TPL 

Read  Access  :  A 

Write  Access  ;  A 


INVENTOR. DESCRIPT   STR   %50r 

INVENTOR. ITB,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT.ICF,  INVENDEL,  INVENDEL.  ICF,  I^IVENRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 


INVENTOR. ISSUE      STR   %25r 

INVENTOR. ITB,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT.ICF,  INVENDEL,  INVENDEL. ICF,  INVENRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 


INVENTOR. LOCATION   STR   %7r 

INVENTOR.  ITB,  INVENTOR,  INVENTOR.  ICF,  IN^/SNCRT, 
INVENCRT.ICF,  INVENDEL,  IITVENDEL.  ICF,  INVENRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 


INVENTOR. PA#  "      STR   %6r 

3RWTABLS,  DELTREC2,  INVENTOR. ITB,  INVENTOR,  I2TV2NTOR. ICF, 
INVENCRT,  INVENCRT.ICF,  INVENDEL,  INVENDEL. ICF, 
INVENRPT.TPL,  UPDRECRD 

Read  Access  :  A 

Write  Access  :  A 


INVENTOR. P0#        STR   %9r 

INVENTOR. ITB,  IiWENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT.ICF,  INVENDEL,  INVENDEL. ICF,  INVENRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 


INVENTOR. RECEIVED   NUM   dd-dd-dd 

INVENTOR. ITB,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT.ICF,  INVENDEL,  INVENDEL. ICF,  INVENRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 
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INVENTOR. SERIAL*    STR   %12r 

DELTREC2,  INVENTOR. ITB,  INVENTOR,  INVENTOR. ICF,  INVENCRT, 
INVENCRT.ICF,  INVENDEL,  INVENDEL. ICF,  INVSNRPT.TPL, 
UPDRECRD 

Read  Access  :  A 

/7rite  Access    :    A 


INVENTOR. VENDOR     STR   %40r 

INVENTOR. ITB,  INVENTOR,  INVENTOR. ICP, 
INVENCRT.ICF,  INVENDEL,  INVENDEL. ICF, 

Read  Access  :  A 

'/7rite  Access    :    A 


INVENCRT, 
INVENRPT.TPL 


OPTAR. ACTUAL      NUM   $dddddd.dd   Changes  in  authorized. 

OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF, 

OPTARDEL,  OPTARDEL.ICF 

Read  Access  :  A 

i'/rite  Access  :  A 


OPTAR. AUTH        NUM   $dddddd.dd  Total  amount  authorized, 
OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL.ICF 
Read   Access  :  ABCDEFGHIJKLI-INOP 
:7rite  Access  :  ABCDEFGHIJKLMNOP 


OPTAR. DIFFER     Virtual  field  :  ((ACTUAL  -  AUTH)) 

OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL.ICF 
Read  Access  :  A 


OPTAR. ENTRY       NUM  dd-dd-dd    Date  that  record  is  entered, 
DELTREC2,  OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT, 
OPTARCRT. ICF,  OPTARDEL,  OPTARDEL.ICF,  UPDRECRD 

Read  Access  :  ABCDEFGHIJKLMNOP 

/7rite  Access  :  ABCDEFGHIJKLMNOP 


NUM  dd-dd-dd 


Date  of  latest  authorization 


OPTAR. RECEIVED 
memo. 

BRWTA3LE,  DELTREC2,  OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT, 
OPTARCRT. ICF,  OPTARDEL,  OPTARDEL.ICF,  UPDRECRD 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
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OPTAR. TACTUAL     MUM   $dddddd.dd  Changes  in  travel  authorized, 
OPTAR.ITB,  OPTAR,  OPTAR. I CF,  OPTARCRT,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL.ICF 

Read  Access  :  A 

Write  Access  :  A 


OPTAR. TAUTH       NUM   $dddddd.dd  Amount  designated  for  travel 
OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL.ICF 
Read   Access  :  ABCDEFGHIJKLriNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


OPTAR. TDIFFER   Virtual  field  :  ((TACTUAL  -  TAUTH)) 

OPTAR.ITB,  OPTAR,  OPTAR. ICF,  OPTARCRT,  OPTARCRT. ICF, 
OPTARDEL,  OPTARDEL.ICF 
Read  Access  :  A 


OTHER. AUTH        NUM  $dddddd.dd   Amount  authorized  for 

Department  Expenditure. 

OTHER. IT3,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT.ICF,  OTHERDEL,  OTHERDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


OTHER. COSTCODE    STR   %5r         Costcode  or  Job  Order  # 
OTHER. I TB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT.ICF,  OTHERDEL,  OTHERDEL.ICF,  UPDRECRD 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


OTHER. ENTRY       NUM   dd-dd-dd   Date  the  entry  is  made. 

OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT.ICF,  OTHERDEL,  OTHERDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


OTHER. EXPIRE      NUM   dd-dd-dd    Date  of  expiration  of  funds 
DELTREC2,  OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT.ICF,  OTHERDEL,  OTHERDEL.ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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OTHER. PRINCIPL    STR  %20r        Last  name  of  principal 
invesigator . 

BRWTABLEr  OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT.ICF,  OTHERDEL,  OTHERDEL. ICF,  UPDRECRD 

Read   Access  :  A3CDEFGHIJKL:-1N0P 

:'7rite  Access  :  A3CDEFGHIJKLMN0P 


OTHER. PROPOSAL    STR   %130r       Title  of  proposal. 
OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT.ICF,  OTHERDEL,  OTHERDEL. ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


OTHER. REMARKS      STR   %50r         REMARKS 
OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT.ICF,  OTHERDEL,  OTHERDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  ABCDEFGHIJKLMNOP 


OTHER. SPONSOR     STR  %35r        Name  of  project  sponsor 

OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 

OTHERCRT.ICF,  OTHERDEL,  OTHERDEL. ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
/7rite  Access  :  ABCDEFGHIJKLMNOP 


OTHER. STATUS      STR  %25r        Status  of  funds. 
OTHER. ITB,  OTHER,  OTHER. ICF,  OTHERCRT, 
OTHERCRT.ICF,  OTHERDEL,  OTHERDEL. ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PASSCOND     NUM  0,  1  or  2       A  variable  used  to  determine 
which  condition  has  been  selected  by  a  user  for  deleting  a 
record  from  a  table.  (0  =  only  1  condition  displayed  by 
deletion  form,  1  =  1st  condition  was  selected  and  2  =  2nd 
condition  was  selected) 

DELTRECl,  INDIRDLT,  INVENDLT,  OPTARDLT,  OTHERDLT, 
PFUNDDLT,  PHISTDLT,  PURCHDLT,  TVLEXDLT 

PASSVAR      STR  or  NUM  A  variable  which  is  used  to 

determine  which  selection  criterion  is  used  to  delete  a 
record.  (DELTVAR  equals  a  specific  field's  value.) 
DELTRECl,  INDIRDLT,  INVENDLT,  OPTARDLT,  OTHERDLT, 
PFUNDDLT,  PHISTDLT,  PURCHDLT,  TVLEXDLT 
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PASTABLE 


STR 


The  name  of  a  table  that 


have  a  record  deleted  from  it. 
DELTRECl,  DELTREC2 


PFUNDING.A:-10UNT    NUM   $ddddd.dd   $Amount 
PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF, 
Read   Access  :  ABCDEFGHIJKLMNOP 
■^rite  Access  :  ABCDEFGHIJKLiMNOP 


charged  to  costcode. 

PFUNDCRT, 

PFUNDRPT.TPL 


PFUNDING. CODE       STR   %3r 
PFUNDING. IT3,  PFUNDING, 
PFUNDCRT . ICF ,  PFUNDDEL , 

Read  Access  :  A 

Write  Access  :  A 


Department  Code 
PFUNDING. ICF,  PFUNDCRT, 
PFUNDDEL. ICF 


PFUNDING. COSTCODE   STR   %5r        Costcode  or  Job  Orders 
PFUNDING. IT3,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read   Access  :  ABCDEFGHIJKLvlNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. DAYS      STR   %5r        #  of  days. 

PFUNDING. IT3,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. ENTRY     NUM   dd-dd-dd   Date  of  item  entry. 
PFUNDING. IT3,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 


Write  Access 


ABCDEFGHIJKLMNOP 


PFUNDING. FNAME     STR  %15r       Full  first  name. 
PFUNDING.  IT3,  PFUNDING,  PFUl^IDING.  ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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PFUNDING.FUiroFROM  MUM  dd-dd-dd   Date  funding-  began. 
PFUNDING.ITB,  PFUNDING,  PFUNDING. IGF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read   Access  :  ABCDEFGHIJKLMNOP 

:"7rite  Access  :  ABCDEFGHIJKLiMNOP 


PFUNDING. FUNDTO    NUM  dd-dd-dd   Date  funding  ends. 
PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. HOURS      NUM  d 

PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 


PFUNDING. HRSWK     NUM  dd  Hours  per  week. 

PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 


PFUNDING. LABOR*     NUM   dd-dd-dd    Date  of  funding  memo. 

DELTREC2,  PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  UPDRECRD 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. LNA:1E     STR   %25r       Full  last  name. 

BRWTABLE,  DELTREC2,  PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF, 
PFUNDCRT,  PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF, 
PFUNDRPT.TPL,  UPDRECRD 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PFUNDING. RATE      NUM  $ddd.dd     Pay  rate. 

PFUNDING.ITB,  PFUNDING,  PFUNDING. ICF,  PFUNDCRT, 
PFUNDCRT.ICF,  PFUNDDEL,  PFUNDDEL. ICF,  PFUNDRPT.TPL 

Read  Access  :  A 

Write  Access  :  A 
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PHISTORy.BILLET#    STR   %4r         Billet# 
PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL . ICF, 
Read   Access  :  A3CDEFGHIJXLMN0P 
:7rite  Access  :  ABCDEFGHIJKLMNOP 


assigned  by 

PHISTCRT, 

PHISTRPT.TPL 


CPO. 


PHISTORY.DOB       NUM  dd-dd-dd   Date  of  birth. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY.EFFECTIV  NUM  dd-dd-dd   Effective  date  of  personnel 

changes. 

PHIST0RY.IT3,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 

PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF 
Read   Access  i  ABCDSFGHIJXLMNOP 
:7rite  Access  :  A3CDEFGHIJKLMN0P 


PHI STORY. ENTRY     NUM   dd-dd-dd   Date  of  entry. 

PHIST0RY.IT3,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHIST0RY.es        NUM   dd-dd-dd  Date  elements  and  standards 
set  for  performance  review. 

PHISTORY. IT3,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. EXPIRE    NUM   dd-dd-dd  Date  of  expiration  of  tem- 
porary appointments. 

PHISTORY. ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF,  PHISTRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. FNAiME     STR   %15r       Full  first  name. 
PHISTORY. ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF,  PHISTRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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PHI STORY. GRADE     NUM  dd         Grade  level. 

PHISTORY.ITB,  PHI STORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL. ICF,  PHISTRPT.TPL 

Read   Access  :  ASCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. HRSV7K     NUM   dd        #  of  hours  worked  per  week 
PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY.JOBTITLE   STR   %30r       Title  of  position. 
PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TPL 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHI STORY. L NAME     STR   %25r       Full  last  name. 

BRWTABLE,  DETREC2,  PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF, 
PHISTCRT,  PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF, 
PHISTRPT.TPL,  UPDRECRD 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. PD#       STR  %5r        Position  description 
assigned  by  CPO. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. RATE  $ddd.dd    Hourly  rate. 

Virtual  field  :  (((SALARY  /  2087)  *  3)  *  1.30000) 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 


PHI STORY. REMARKS    STR   %100r      Remarks. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 
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PHISTORY. SALARY    NUM   $ddddd.dd   Annual  salary. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF 

Read   Accass  :  ABCDEFGHIJKLMNOP 

Write  Access  :  A3CDEFGHIJKL:4N0P 


PHISTORY. SERIES    NUM  ddddd      Series  classification. 
PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. STATUS    STR   %6r        Type  of  appointment. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 

PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. STEP      NUM  dd         Step  level. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TOL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. SUPERVSR  STR  %25r       Last  name  of  workload  super- 
visor. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TPL 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PHISTORY. WORKUNIT   STR    %10r      Workunit. 

PHISTORY.ITB,  PHISTORY,  PHISTORY. ICF,  PHISTCRT, 
PHISTCRT.ICF,  PHISTDEL,  PHISTDEL.ICF,  PHISTRPT.TPL 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. CODE        STR  %3r      Department  code.  (See  data 

sources  in  User's  Manual.) 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 

PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
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PURCHASE. COSTCODE    STR   %5r      Costcode  or  JON. 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF,  REQUSRPT.TPL 

Read   Access  :  ABCDEFGHIJKLi'INOP 

vVrite  Access  :  A3CDEFGHIJKLMN0P 

PURCHASE. DESCRIPT  STR  %50r  Item  description. 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF,  REQUSRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. DOC#         STR   %10r 

3RWTABLE,  DELTREC2,  PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF, 
PURCHCRT,  PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF, 
REQUSRPT.TPL,  UPDRECRD 
Read   Access  :  ABCDEFGHIJKLMNOP 
:=7rite  Access  :  ABCDEFGHIJKLilNOP 


PURCHASE. ENTRY       NUM  dd-dd-dd   Date  record  is  entered, 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. ESTIMATE  NUM  $ddddd.dd  Estimate  of  cost. 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. FIRM        NUM  $ddddd.dd  Actual  cost  of  item. 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 

PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. ISSUE       STR  %25r     Last  name  of  individual  item 

is  issued  to. 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 

PURCHCRT.ICF,  PURCHDEL,  PURCHDEL. ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
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PURCHASE. LOCATION    STR   %7r      Location  of  issue, 
PURCHASE. IT3,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 

Read  Access  :  ABCDEFGHIJKLrlNOP 

v^rite  Access  :  A3CDEFGHIJKLMN0P 


PURCHASE. PA#         STR  %17r     Plant  Account  *. 
PURCHASE. ITS,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 

Read  Access  :  ABCDEFGHIJKLMNOP 

'.Vrite  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. P0#         STR  %9r      Purchase  Order  #. 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 
Read   Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  A3CDEFGHIJKLMM0P 


PURCHASE. PRIORITY     ITOM   dd 

PURCHASE.  ITB,  PURCHASE,  PURCHASE.  ICF,.  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
^^rite  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. QTY         STR   rrr 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 

Read  Access  :  A 

Write  Access  :  A 


PURCHASE. RDD         NUM  dd-dd-dd  Required  delivery  date, 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. RECEIVED     NUM   dd-dd-dd 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 

Read   Access  :  ABCDEFGHIJKLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


i 


I 

4 
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PURCHASE. REMARKS      STR   %50r 

PURCHASE. IT3,  PURCHASE,  PURCHASE. ICF, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  ABCDEFGHIJKLIINOP 


PURCHCRT, 


PURCHASE. REQUESTR     STR   %25r 
requested  the  purchase. 
PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
;7rite  Access  :  ABCDEFGHIJKLMNOP 


Last  name  of  individual  who 


PURCHCRT, 


PURCHASE. SERIAL*      STR   %12r 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF 


Read  Access 
:7rite  Access 


A3CDEFGHIJKL:-IN0? 
ABCDEFGHIJKLi-INOP 


PURCHCRT , 


PURCHASE. STOCK #       STR   %20r 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF,  PURCHCRT, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF,  REQUSRPT.TPL 

Read  Access  :  ABCDEFGHIJKLMNOP 

■-/rite  Access  :  ABCDEFGHIJKLMNOP 


PURCHASE. VENDOR       STR   %40r 

PURCHASE. ITB,  PURCHASE,  PURCHASE. ICF, 
PURCHCRT.ICF,  PURCHDEL,  PURCHDEL.ICF, 
Read  Access  :  ABCDEFGHIJKLMNOP 
y7rite  Access  :  ABCDEFGHIJKLMNOP 


PURCHCRT, 
REQUSRPT.TPL 


TABL 


The  name  of  a  table  that 
ill  be  performed  on; 
in  the  table,  create 
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TVL EX p. ADVANCE     NUM   $ddd.dd     $Amount  of  advance. 
TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVL2XCRT, 
TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
^'Jrite  Access  :  ABCDEFGHIJXLMNOP 


TVLEXP.CTiAIM       NUM  dd-dd-dd   Date  claim  is  filed. 

OUTSTRPT.TPLr  TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 

TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read   Access  :  ABCDEFGHIJKLHNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP.CODE        STR   %3r        Code  indicating  type  of 

travel;  recruit,  invitational,  regular,  or  association. 
TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
;7rite  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. COSTCODE    STR  %5r        Costcode  or  job  order#. 

OQTSTRPT.TPL,  TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
vVrite  Access  :  ABCDEFGHIJXLMNOP 


TVLEXP. DATEDEP     NUM  dd-dd-dd   Date  travel  originated. 
3RWTABLE,  TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 
TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. DATERET     NUM   dd-dd-dd   Date  travel  is  concluded. 

TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 

TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. DOCS        STR  %10r       Travel  order  #. 

BRWTABLE,  DELTREC2,  OUTSTRPT.TPL,  TVLEXP.ITB,  TVLEXP, 
TVLEXP.ICF,  TVLEXCRT,  TVLEXCRT. ICF,  TVLEXDEL,  TVLEXDEL.ICF, 
UPDRECRD 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
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TVLEXP.DOV#        STR  rrrrr      Disbursing  Office  Voucher  # 
OUTSTRPT.TPL,  TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 
TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 

Read  Access  :  A 

'.-/rite  Access  :  A 


TVLEXP. ENTRY       NUM  dd-dd-dd   Date  entry  of  record. 

TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 

TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. ESTIMATE    NUM   $dddd.dd   Estimated  cost  of  travel 
TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 
TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 

Read   Access  :  ABCDEFGHIJXLMNOP 

Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. FIRM        NUM   $ddddd.dd  Actual  cost  of  travel. 

TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 

TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. LOCATION    STR  %25r       Destination  of  traveler. 

TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 

TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


TVLEXP. RSQUESTR    STR   %20r       Name  of  travler. 

OUTSTRPT.TPL,  TVLEXP.ITB,  TVLEXP,  TVLEXP.ICF,  TVLEXCRT, 

TVLEXCRT.ICF,  TVLEXDEL,  TVLEXDEL.ICF 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 


UPDATVAR     STR  or  NUM  A  variable  which  is  used  to 

determine  which  selection  criterion  is  used  to  update  a 
record. 
INDIRUPD, 


PURCHUPD 


:jijx  or  iMui'i  a  variaoie  wnicn  is  usea  co 

mine  which  selection  criterion  is  used  to  update  a 
d.  (UPDATVAR  equals  a  specific  field's  value.) 
;UPD,  INVENUPD,  OPTARUPD,  OTHERUPD,  PFUNDUPD,  PHISTUPD, 
UPD,  TVLEXUPD,  UPDRECRD 
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APPENDIX  I 
PROGRAM  LISTINGS 

TABLE  OF  CONTENTS 


FILE 


FAGS 


FILE 


PAGE 


brwtable 

135 

crtrecrd 

137 

dbmen 

139 

deltrecl 

140 

deltrec2 

141 

expenraen 

146 

incommen 

147 

indirdlt 

143 

indirmen 

149 

indirupd 

150 

invendlt 

151 

invenmen 

152 

invenrpt 

153 

invenupd 

154 

mainmen 

155 

optardlt 

156 

optarmen 

157 

optarupd 

153 

otherdlt 

159 

othermen 

160 

otherupd 

161 

outstrpt 

152 

persdmen 

153 

pfunddlt 

154 

pf undmen 

165 

pf undrpt 

155 

pfundupd 

167 

phistdlt 

168 

phistmen 

169 

phistrpt 

170 

phistupd 

171 

prprtmen 

172 

purchdlt 

173 

purchmen 

174 

purchupd 

175 

purrtmen 

175 

reprtmen 

177 

requsrpt 

178 

travlmen 

179 

tvlexdlt 

180 

tvlexupd 
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updrecrd 

182 

This  appendix  contains  listings  of  all  the  AS  System's 
perforin  files,  except  menus  and  forms.   The  code  for  the  menus 
and  forms  can  be  "looked  at"  by  using  K-Paint. 
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/*  BRWTABLE.IPF  -  This  module  browses  a  table.  */ 

/*  Called  by:   INDIRMEN. IPF,  OPTARMEN. IPP,  PFUNDMEN. IPF,  */ 

/*  PHISTMEN.IPF,  PURCHMEN.IPF,  TRAVLMEN. IPF,  */ 

/*  OTHERMEN.IPF,  INVENMEN. IPF  */ 

/♦Calls:       INDIRECT. IPF,  OPTAR.IPF,  PFUNDING. IPF,  */ 

/*  PHISTORY.IPF,  PURCHASE. IPF,  TVLEXP.IPF,  */ 

/*  OTHER. IPF,  TABLDFRM.IPF,  INVENTOR. IPF  */ 

/*  Author:  R.  Booker,  15  Oct  85  */ 

E.ICAS  =  TRUE;   I  ignore  case  differences  among  string  values 
PERFORM  TABLDFRM; 
PUTFORM  TABLDFRM; 

TABLE  =  SA; 

TEST  TABLE 

CASE  "INDIRECT": 

USE  INDIRECT; 

SORT  INDIRECT  BY  AZ  PRINCIPL; 

LOAD  FROM  INDIRECT;    !  the  indirect  funds  entry  form 

BROWSE  INDIRECT  ALL  WITH  INDIRECT; 

BREAK ; 
CASE  "INVENTOR": 

USE  INVENTOR; 

SORT  INVENTOR  BY  AZ  PA#; 

LOAD  FROM  II^ENTOR;    I  the  inventory  entry  form 

BROWSE  INVENTOR  ALL  WITH  INVENTOR; 

BREAK; 
CASE  "OPTAR": 

USE  OPTAR; 

SORT  OPTAR  BY  AZ  RECEIVED; 

LOAD  FROM  OPTAR;    1  the  OPTAR  entry  form 

BROWSE  OPTAR  ALL  WITH  OPTAR; 

BREAK ; 
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CASE  "OTHER": 

USE  OTHER; 

SORT  OTHER  BY  AZ  PRINCIPL; 

LOAD  FROM  OTHER;    !  the  other  funds  entry  form 

BROWSE  OTHER  ALL  WITH  OTHER; 

BREAK; 
CASE  "PFUNDING": 

USE  PFUNDING; 

SORT  PFUNDING  BY  AZ  LNAxME; 

LOAD  FROM  PFUNDING;  i  the  personnel  funding  entry  form 

BROWSE  PFUNDING  ALL  WITH  PFUNDING; 

BREAK; 
CASE  "PHISTORY": 

USE  PHISTORY; 

SORT  PHISTORY  BY  AZ  LNAI-IE; 

LOAD  FROM  PHISTORY;  I  the  personnel  history  entry  form 

BROWSE  PHISTORY  ALL  WITH  PHISTORY; 

BREAK; 
CASE  "PURCHASE": 

USE  PURCHASE; 

SORT  PURCHASE  BY  AZ  DOC#; 

LOAD  FROM  PURCHASE;    !  the  purchase  entry  form 

BROWSE  PURCHASE  ALL  WITH  PURCHASE; 

BREAK; 
CASE  "TVLEXP": 

USE  TVLEXP; 

SORT  TVLEXP  BY  AZ  DATEDEP,  DOC#; 

LOAD  FROM  TVLEXP;    !  the  travel  expenses  entry  form 

BROWSE  TVLEXP  ALL  WITH  TVLEXP; 

BREAK; 
ENDTEST; 
FINISH  ALL; 

F0Rr4ANS  =  "  ";  . 

E.ICAS  =  FALSE; 
RETURN; 

136 


/*  CRTRECRD.IPF  -  This  module  creates  a  record  in  a  passed    */ 

/*  table.  */ 

/*  Called  by:  PFUNDMEN. IPF,  PHISTMEM. IPF,  TRAVLMEN. IPF,  */ 

/*  INDIRi'lEN.IPF,  OTHERMEN.  IPF,  PURCHHEN.  IPF,  */ 

/*  OPTARHEN.IPF,  INVENMEN.IPF  */ 

/*  Calls:  INDIRCRT.IPF,  OPTARCRT. IPF,  PFUNDCRT. IPF,  */ 

/*  PHISTCRT.IPF,  PURCHCRT.IPF,  TVLEXCRT.IPF  */ 

/*  OTHERCRT.IPF,  TABLDFRM. IPF,  INVENCRT.IPF  */ 

/*  Author:  R.  Booker     26  Jan  86  */ 

E.LMOD=FALSE;  !  only  blanks  will  first  appear  in  the  creation 

!  form 
PERFORM  TABLDFRM; 
PUTFORM  TABLDFRM; 

TABLE  =  ^A; 
TEST  TABLE 

CASE  "INDIRECT": 

USE  INDIRECT; 

LOAD  FROM  INDIRCRT;    !  the  indirect  cost  form 

CREATE  RECORD  FOR  INDIRECT  WITH  INDIRCRT; 

BREAK; 

CASE  "IIsIYENTOR": 
USE  INVENTOR; 

LOAD  FROM  INVENCRT;    !  the  inventory  form 
CREATE  RECORD  FOR  INVENTOR  ;7ITH  INVENCRT; 
BREAK; 

CASE  "OPTAR": 

USE  OPTAR; 

LOAD  FROM  OPTARCRT;    1  the  optar  form 

E.ICOM  =  TRUE;  1  immediate  compute  of  virtual  field 

CREATE  RECORD  FOR  OPTAR  ^^ITH  OPTARCRT; 

E.ICOM  =  FALSE;  BREAK; 
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CASE  "OTHER": 

USE  OTHER; 

LOAD  FROM  OTHERCRT;    !  the  other  funds  form 
CREATE  RECORD  FOR  OTHER  :7ITH  OTHERCRT; 
BREAK ; 

CASE  "PFUNDING": 

USE  PFUNDING; 

LOAD  FROM  PFUNDCRT;    !  the  personnel  funding  form 

CREATE  RECORD  FOR  PFUNDING  'VITH  PFUNDCRT; 

BREAK; 

CASE  "PHI STORY": 

USE  PHI STORY; 

LOAD  FROM  PHI3TCRT;  1  the  personnel  history  form 

CREATE  RECORD  FOR  PHI STORY  i7ITH  PHISTCRT; 

BREAK; 

CASE  "PURCHASE": 

USE  PURCHASE; 

LOAD  FROM  PURCHCRT;    1  the  purchase  form 

CREATE  RECORD  FOR  PURCHASE  IVITH  PURCHCRT; 

BREAK; 

CASE  "TVLEXP": 

USE  TVLEXP; 

LOAD  FROM  TVLSXCRT;    !  the  travel  expenses  form 

CREATE  RECORD  FOR  TVLEXP  WITH  TVLEXCRT; 

BREAK; 

ENDTEST; 

FINISH  ALL; 

F0Ri*4ANS  =!  "  ";       !  places  a  blank  in  calling  module  prompt 

E.LMOD=TRUE;         1  default 


RETURN; 
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/*  DBMEN.IPF 

/*  (1.0) 

/* 

/*  Called  by: 

/*  Calls: 

/* 

/*  Author: 


Brings  up  the  data  base  menu,  and  perform 

either  EXPENMEN. IPF,  INCOMMEN.IPF  or 

INVENMEN.IPF 

:1AINMEN.IPF 

DBFRiM.IPF,  ERRORFRM.IPF,  EXPENMEN.  IPF, 

INCOMMEN. IPF ,  INVENMEN. IPF 

R.  Booker      15  Jan  86 


V 
*/ 
*/ 
V 
V 
V 
V 


FORMANS  - 


_  It 


WHILE  FORMANS  NE 


n  At* 


DO 


!  don't  exit  from  module 


PERFORM  D3FRM; 
PUTFORM  DBFRM; 
GETFORM  DBFRM; 


•  expenses  form 


WHILE  NOT  (FORMANS  IN  ["1"  ,  "a"  ,  "S"  ,  ••4'' ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 


TEST  FORMANS 

CASE  "1": 
CASE  -2": 
CASE  "S": 

ENDTEST; 


PERFORM  "EXPENMEN.IPF" 
PERFORM  "INCOMMEN.IPF" 
PERFORM  "INVENMEN.IPF" 


BxREAK; 
BREAK; 

BREAK; 


ENDWHILE; 


!  formans  =  "4" 


FORMANS  =  "  "; 


1  places  a  blank  at  calling  menu  prompt 


RETURN; 
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/*  DELTRECl.IPF  -  This  module  gives  a  user  another  chance  */ 

/*  before  deleting  a  record.  */ 

/*  Called  by:  INDIRDLT. IPF,  OPTARDLT. IPF,  OTHERDLT. IPP,  */ 

/*  PFUNDDLT.IPF,  PHISTDLT. IPF,  PURCHDLT. IPF,  */ 

/*  TVLEXDLT.IPF,  IInIVENDLT.  IPF  */ 

/*  Calls:      DELQSFRM.IPF,  DELERFRM. IPF,  DELTREC2.IPF  */ 

/*  Author:  R.  Booker,  30  Nov  85  */ 

E.ICAS  =  TRUE; 


TABLE  =  #A;  !  table  for  deletion,  passed  from  calling  module 

PASSVAR  =  #B;  !  value  of  condition  variaole  for  deletion 

PASSCOND  =  i*C;  I  condition  for  deletion,  passed  from  calling 

!  module 

DELTANS  =  "  •»;  !  updated  by  DELQSFRM 

PERFORM  DELQSFRM;  i  checks  to  ensure  that  the  user  wants  to 
PUTFORM  DELQSFRM;  !  delete 
GETFORM  DELQSFRM; 

'/7HILE  NOT  (DELTANS  IN  ["Y'',"N"])  DO  1  check  input 

PERFORM  DELERFRM; 

PUTFORM  DELERFRM; 

GETFORM  DELERFRM; 
ENDWHILS; 

IF  DELTANS  =  "Y"  THEN 

PERFORM  ••DELTREC2.IPF"  USING  "TABLE",  "PASSVAR",  "PASSCOND"; 
END IF; 

FORMANS  =  "  ";  I  places  a  blank  at  calling  menu  prompt 
RETURN; 
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/*  DELTREC2.IPF  -  This  module  deletes  a  record  from  a  passed   */ 

/*              table.  */ 

/*  Called  oy:  DELTRECl.IPF  */ 

/*  Calls:      INDIRDEL.IPF,  OTHERDEL. IPF,  PHISTDEL. IPF,  */ 

/*             PURCHDEL.IPF,  TVLEXDEL.  IPF,  DELETFRil.  IPF,  */ 

/*             TABLDFRM.IPF,  PFUNDDEL. IPF,  OPTARDEL.IPF  */ 

/*             INVENDEL.IPF  */ 

/*  Author:  R.  Booker,  30  Nov  85  */ 

E.ICAS  =  TRUE;     I  ignore  case  differences  among  string  values 


PASTABLE  =  #A;  !  table  for  deletion,  passed  from  calling  module 


DELETVAR  =  #3;     !  condition  variable  for  deletion 


COND     =  i^C;  !  condition  for  deletion,  passed  from  calling 

!  module 

PERFORM  TABLDFRM; 
PUTFORM  TABLDFRM; 

TEST  PASTABLE  !  test  the  table  which  will  be  used  for  deletion 

CASE  "INDIRECT": 

USE  INDIRECT; 

LOAD  FROM  INDIRDEL;    !  the  indirect  cost  deletion  form 
BROWSE  INDIRECT  FOR  EXPIRE  =  DELETVAR  ALL  WITH  INDIRDEL; 
BREAK; 
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CASE  "INVENTOR": 

USE  INVENTORY- 
LOAD  FROM  INVENDEL;!  the  inventory  deletion  form 

IF  COND  =  1  THEN       !  browse  on  PA# 

BROWSE  INVENTOR  FOR  PA*  =  DSLETVAR  ALL\ 
WITH  INVENDEL; 
ELSE 

IF  COND  =  2  THEN      1  delete  on  SERIAL# 

BROWSE  INVENTOR  FOR  SERIAL #  =  DELETVAR  ALL\ 
WITH  INVENDEL; 
ENDIF; 
END IF; 
BREAK; 

CASE  "OPTAR": 

USE  OPTAR; 

LOAD  FROM  OPTARDEL;   1  the  OPTAR  deletion  form 

IF  COND  =  1  THEN      i  browse  on  RECEIVED 

BROWSE  OPTAR  FOR  RECEIVED  =  DELETVAR  ALL\ 
WITH  OPTARDEL; 
ELSE 

IF  COND  =  2  THEN     1  browse  on  ENTRY 

BROWSE  OPTAR  FOR  ENTRY  =  DELETVAR  ALL\ 
WITH  OPTARDEL; 
ENDIF; 
ENDIF; 
BREAK; 

CASE  "OTHER": 

USE  OTHER; 

LOAD  FROM  OTHERDEL;  1  the  other  funds  deletion  form 
BROWSE  OTHER  FOR  EXPIRE  =  DELETVAR  ALL  WITH  OTHERDEL; 
BREAK ; 
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CASE  "PFUNDING": 

USE  PFUNDING; 
LOAD  FROM  PFUNDDEL; I  the  personnel  funding  deletion  form 

IF  COND  =  1  THEN        I  browse  on  LNAI-IE 

BROWSE  PFUNDING  FOR  LNATIE  =  DSLETVAR  ALL\ 
WITH  PFUNDDEL; 
ELSE 

IF  COND  =  2  THEN      !  delete  on  LA30R# 

BROWSE  PFUNDING  FOR  LABOR#  =  DELETVAR  ALL\ 
WITH  PFUNDDEL; 
END IF; 
END IF; 
BREAK; 

CASE  "PHI STORY": 

USE  PHISTORY; 

LOAD  FROM  PHISTDEL;  !  the  personnel  history  deletion 

!  form 
BROWSE  PHISTORY  FOR  LNAi-lE  =  DELETVAR  ALL  WITH  PHISTDEL; 
BREAK ; 

CASE  "PURCHASE": 

USE  PURCHASE; 

LOAD  FROM  PURCHDEL;    !  the  purchase  deletion  form 

BROWSE  PURCHASE  FOR  DOC#  =  DELETVAR  ALL  WITH  PURCHDEL; 

BREAK; 

CASE  "TVLEXP": 

USE  TVLEXP; 

LOAD  FROM  TVLEXDEL;    !  the  travel  expenses  deletion 

!  form 
BROWSE  TVLEXP  FOR  DOC#  =  DELETVAR  ALL  WITH  TVLEXDEL; 
BREAK; 
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ENDTEST; 

IF  #FOUND  =  TRUE  THEM   !  this  prevents  the  current  record  from 

!  being  deleted  if  a  record  is  not  found 

PERFORM  DELSTFRM;   !  notification  that  a  record  is  being 
PUTFORM  DELETFRM;   !  deleted 

TEST  PASTABLS 

CASE  "INDIRECT": 

MARK  RECORDS  IN  INDIRECT  :'7ITH  TRUE  CURRENT; 

COMPRESS  INDIRECT; 

BREAK; 

CASE  "INVENTOR": 

:4ARK  RECORDS  IN  INVENTOR  WITH  TRUE  CURRENT; 
COMPRESS  I^IVENTOR; 
BREAK ; 

CASE  "OPTAR": 

MARK  RECORDS  IN  OPTAR  WITH  TRUE  CURRENT; 

COMPRESS  OPTAR; 

BREAK; 

CASE  "OTHER": 

MARK  RECORDS  IN  OTHER  WITH  TRUE  CURRENT; 

COMPRESS  OTHER; 

BREAK; 

CASE  "PFUNDING": 

MARK  RECORDS  IN  PFUNDING  WITH  TRUE  CURRENT; 

COMPRESS  PFUNDING; 

BREAK; 
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CASE  "PHISTORY": 

MARK  RECORDS  IN  PHISTORY  ^/7ITH  TRUE  CURRENTS- 
COMPRESS  PH I STORY; 
BREAKS- 
CASE  "PURCHASE": 

MARK  RECORDS  IN  PURCHASE  WITH  TRUE  CURRENTS- 
COMPRESS  PURCHASE ; 
BREAK; 

CASE  "TVLEXP": 

MARK  RECORDS  IN  TVLEXP  WITH  TRUE  CURRENTS- 
COMPRESS  TVLEXPs- 
BREAKs- 


ENDTESTs- 

ENDIFs- 

FINISH  ALL; 
RETURN; 
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/*  EXPENMEN.IPF  -  Brings  up  the  expenses  menu  and  perforins 

/*  (1.1)  either  PERSDMEN. IPF,  TRAVLMEN. IPF  or 

/*  PURCHMEN 

/*  Called  by:  DBMEN.IPF 

/*  Calls:      EXPENFRM.IPF,  ERRORFRM. IPF,  PERSDMEN. IPF, 

/*  TRAVLMEN.IPF,  PURCHiMEN.  IPF 

/*  Author:    R.  Booker         15  Jan  86 


*/ 
V 
V 
V 
V 
V 
V 


FORMANS    =    "    "; 


WHILE   F0RI4ANS    NE    ••4''    DO 


!  don't  exit  module 


PERFORM  EXPENFRM; 
PUTFORM  EXPENFRM; 
GETFORM  EXPENFRiM; 


!  expenses  form 


WHILE  NOT  (FORMANS  IN  ("1" , "2" , "3" , " 4" ] )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILS; 


TEST  FORMANS 

CASE  "1": 
CASE  "2": 
CASE  "3": 
ENDTSST; 


PERFORM  "PERSDMEN. IPF" 
PERFORM  "TRAVLMEN.IPF" 
PERFORM  "PURCHMEN. IPF" 


BREAK; 
BREAK; 
BREAK; 


ENDWHILE; 


!  formans  =  "4 


for:ians  = 


_  n  n 


;  1  places  a  blank  at  calling  module  prompt 


RETURN; 
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/*  INCOMMEN.IPF  (1.2) 

/*  Brings  up  the  data  base  income  menu,  and  either  performs 

/*  OPTARIIEN.IPF,  INDIRI'IEN.IPF  or  OTHERMEN.IPF 

/*  Called  by:  D3MEN. IPF 

/*  Calls:      INCOMFRM.IPF,  SRRORFRI-l.  IPF,  OPTARI-IEN.  IPF, 

/*  INDIRiMEN.IPF,  OTHERMEN.IPF 

/*  Author:    R.  Booker  15  Jan  36 


*/ 
*/ 
*/ 
V 
V 
V 
V 


FORMANS    = 


_     n 


^VHILE   F0RI4ANS    NE    ''4''    DO 


!    don't   exit  module 


P ERFORM    I NCOMFRIl  ; 

PUTFORM  I :^comfr:i  ; 

GETFORM  INCOMFRM; 


!  data  base  menu 


WHILE  NOT  (FORMANS  IN  ["1" , "2" , "3" , "4" ] )  DO 

PERFORM  ERRORFRM; 
PUTFORM  ERRORFRM; 
GETFORM  ERRORFRM; 
ENDWHILS; 


TEST  FORMANS 

CASE  "l": 
CASE  "2": 
CASE  "3": 

ENDTEST; 


PERFORM  "OPTARMEN.IPF";  BREAK; 
PERFORM  "INDIRMEN.IPF";  BREAK; 
PERFORM  "OTHERMEN.IPF";  BREAK; 


SNDWHILE; 


!  formans  =  "4" 


FORMANS  =:"••; 
RETURN; 


I  places  a  blank  at  calling  menu  prompt 
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/*  INDIRDLT.IPF  (1.2.2.2)  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the   */ 

/*  indirect  funds  table.  */ 

/*  Called  by:  IMDIRMEN. IPF  */ 

/*  Calls:      INDELFRM.IPF,  ERIINDIR. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  */ 

FORr-lANS   =  "  ■»; 

ENTRYONE  =0;         1  entered  from  indelfrm 

PASCOND  =  0;  1  condition  for  deletion,  no  choice  =  0 

v7HILE  ENTRYONE  =  0  DO      !  exit  from  module 

PERFORM  INDELFRM;      I  indirect  deletion  menu 
PUTFORM  INDELFRM; 
GETFORI'l  INDELFRM; 

i7HILE  ENTRYONE  =  0  DO   !  check  input 

PERFORM  ERIINDIR; 

PUTFORM  ERIINDIR; 

GETFORM  ERIINDIR; 
SNDWHILE; 

PERFORM  "DELTRECl.IPF"  USING  "\"INDIRSCT\" " ,  "ENTRYONE" A 
"PASCOND"; 

ENDWHILE;  1  formans  not  blank 

ENTRYONE  =  0; 

FORMANS  =  "  ";       •  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  INDIRMEN.IPF  -  Brings  up  the  menu  for  indirect  income  table*/ 

/*  (1.2.2)        and  offers  the  following  options:  browse  the*/ 

/*  INDIRECT  table,  add,  update  or  delete  a     */ 

/*  record  to  or  from  it,  and  to  quit. 

/*  Called  by:  INCOMMEN.IPF 

/*  Calls:  INDIRFRM.IPF,  ERRORFRM. IPF,  3RWTABLE. IPF, 

/*  INDIRUPD.IPF,  CRTRECRD.IPF,  INDIRDLT.IPF 

/*  Author:  R.  Booker     15  Jan  86 


V 
V 


V 

*/ 
*/ 


FORMANS 


_  n  n  , 


:^HILE  FORMANS  NE  "S"  DO 


!  exit  from  module 


PERFORM  INDIRFRIl; 
PUTFORH  INDIRFRM; 
GETFORI'I  ItJDIRFRM; 


indirect  cost  menu 


I  check  input 
WHILE  NOT  (F0R:4ANS  IN  ["1"  ,  ••2'' ,  "S"  ,  "4"  ,  "5"  ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 

TEST  FORZIANS 

CASE  "1":  PERFORM  "BRWTABLE. IPF"  USING  "\" INDIRECT\" " ; 

BREAK; 
CASE  "2":  PERFORM  "INDIRUPD.IPF";  BREAK; 
CASE  "3":  PERFORM  "CRTRECRD.IPF"  USING  "\"INDIRECT\"" ; 

BREAK; 
CASE  "4":  PERFORM  "INDIRDLT.IPF";  BREAK; 
ENDTEST; 


ENDWHILE; 
FORMANS  =  "  "; 
RETURN; 


!  formans  =  "5" 

!  places  a  blank  at  calling  module  prompt 
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/*  INDIRUPD.IPF  -  Brings  up  the  menu  for  updating  of  the 

/*  (1.2.2.1)      indirect  funds  table. 

/*  Called  by:  INDIRMEN.IPF 

/*  Calls:      INUPDFRM.IPF,.  SR2INDIR. IPF,  UPDRECRD.IPF 

/*  Author:  R.  Booker     22  Jan  86 


*/ 
V 
*/ 
V 
V 


FORMANS   =  "  "; 

ENTRYONE  =  "  ";  !  the  1st  condition  for  an  update,  entered  from 


ENTRYTWO  =  "  " ; 
PASCOND  =  0; 


inupdf rm 

the  2nd  condition  for  an  update,  entered  from 
inupdf rm 

the  field  to  search  for  the  update 
WHILE  SNTRYONS  =  "  "  AND  ENTRYT:70  =  "  "  DO  i  exit  from  module 
PERFORrl  INUPDFRiM;  !  indirect  funding  update  menu 

PUTFORIl  INUPDFRM; 
GETFORM  INUPDFRM; 

WHILE  ENTRYONE  =  "  "  AND  ENTRYTWO  =  "  "  DO   I  check  input 
PERFORM  ER2INDIR; 
PUTFORM  ER2INDIR; 
GETFORM  ER2INDIR; 
ENDWHILE; 
IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;  !  update  by  cost  code 

PERFORM  "UPDRECRD.IPF"  USING  "X^INDIRSCTX"" , \ 
" ENTRYONE " ,  " PASCOND " ; 
ELSE 

IF  ENTRYT:-70  NE  "  "  THEN 

PASCOND  =2;  1  update  by  principl 

PERFORM  "UPDRECRD.IPF"  USING  "\"INDIRECT\"" A 
" ENTRYT^iO"  ,  " PASCOND"  ; 
ENDIF; 
ENDIF; 
ENDWHILE;  1  formans  not  blank 

ENTRYONE  =  "  " ;   ENTRYT^WO  =  "  "; 
FORriANS  =  "  ";    RETURN; 
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/*  INVENDLT.IPF  (1.3.2)  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the  */ 

/*  inventory  table.  */ 

/*  Called  by:  INVENMEN. IPF  */ 

/*  Calls:      IVDELFRM.IPF,  EROINVEN. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     25  Feb  86  */ 

FORMANS   =  •»  "; 

SNTRYONE  =  "  " ;  i  entered  from  ivdelfrm 
ENTRYTVO  =  ■•  ";  !  entered  from  ivdelfrm 
PASCOND  =0;  !  condition  for  deletion 

>7HILE  ENTRYOME  =  "  "  AND  ENTRYT!-70  =  "  "  DO    I    exit  from  module 
PERFORM  IVDELFRM;        1  inventory  delation  menu 
PUTFORM  IVDSLFRI'I; 
GETFOR:-!  IVDELFRM; 

^-^HILE  ENTRYONE  =  "  •»  AND  ENTRYT:'70  =  "  "  DO   I  check  input 
PERFORM  EROItlVEN; 
PUTFORM  EROINVSN; 
GETFORM  EROINVEN; 
ENDWHILE; 
IF  ENTRYONE  NE  " ' "  THEN 

PASCOND  =1;  !  delete  by  PA# 

PERFORM  "  DELTRECl.IPF"  USING  "X^'INVENTORX""  ,  \ 
"ENTRYONE",  "PASCOND"; 
ELSE 

IF  ENTRYT:-70  NE  "  "  THEN 

PASCOND  =2;  !  delete  by  SERIAL # 

PERFORM  "DELTRECl.IPF"  USING  "\"INVENTOR\" " ,\ 
"  ENTRYTI70 "  ,  "  PASCOND  "  ; 
END IF; 
END IF; 
ENDWHILE;  !  formans  not  blank 

ENTRYONE  =  "  ";  ENTRYTiVO  =  "  "; 

FORMANS  =  ••••;      I  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  INVENMEN.IPF  -  Brings  up  the  menu  for  the  inventory  table  */ 
/*  (1.3)          and  offers  the  following  options:  orowse  the*/ 

/*               table,  update,  add,  or  delete  a  record,  or  */ 

/*                quit.  */ 

/*  Called  by:  DBMEN.IPF  */ 

/*  Calls:  INVENFRM.IPF,  ERRORFRM. IPF,  3RWTABLE. IPF,  */ 

/*  INVENUPD.IPF,  CRTRECRD.IPF,  INVENDLT.IPF  */ 

/*  Author:  R.  Booker     25  Feb  86  */ 


FORMANS   = 


_  It  If 


:7HILE   F0RI4ANS    NE    "5"    DO 


1  exit  from  module 


PERFORn  INVENFRM; 
PUTFORM  INVENFR:!; 
GETFORM  INVENFRM; 


1  inventory  menu 


I  check  input 

:^7HILE  NOT  (F0R:4ANS  IN  [''l'',''2",''3",''4'',"5''])  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 


TEST  FORMANS 

CASE  "1":  PERFORM  "BRWTABLE. IPF"  USING  "\"INVSNTOR\" " ; 

BREAK ; 
CASE  "2":  PERFORM  "INVENUPD.IPF";  BREAK; 
CASE  "3":  PERFORM  "CRTRECRD.IPF"  USING  "\"INVENTOR\"" ; 

BREAK; 
CASE  "4":  PERFORM  " INVENDLT. IPF" ;  BREAK; 
ENDTEST; 
ENDWHILE;  !  formans  =  "5" 

FORMANS  =  "  ";     I  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  INVENRPT.IPF  (2.2.2)  */ 

/*  This  module  prints  the  quarterly  inventory  report.  */ 

/*  Called  by;  PURRTIIEN.  IPF  */ 

/*  Calls:      TRPLDFRM.IPF  V 

/*  Author;    R.  Booker     25  Feb  86  */ 

PERFORM  TRPLDFRM;  !  Table  and  Report  Loading  form 

PUTFORM  TRPLDFRM; 

E.LSTR  =  50;  I  Change  string  length  to  50  characters. 

E.OPRN  =  TRUE;         1  Send  output  to  printer. 

E.PDEP  =  52;  1  Change  page  depth  to  52  lines. 

S.PWID  =  130;  !  Change  page  width  to  130  character. 

USE  II^EMTOR  !  inventory  table. 

REPORT  "INVENRPT"  ORDER  BY  AZ  PA# 

i  Report  was  created  with  K-Report. 

FINISH  I^JVENTOR 

E.LSTR  =  15;       !  Change  all  environment  variables  to  their 

!  defaults. 
E.OPRN  =  FALSE; 
E.PDEP  =  60; 
E.PWID  =  120; 

FORI^NS  =  "  ";      1  places  a  blank  at  calling  module's  prompt 
RETURN; 
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/*  INVENUPD.IPF  -  Brings  up  the  menu  for  updating  of  the  */ 

/*  (1.3.1)        inventory  table.  */ 

/*  Called  by:  INVEMMEM.IPF  */ 

/*  Calls:      IVUPDPRM.IPF,  SROIMVEN. IPF,  UPDRSCRD.IPF  */  4 

/*  Author:  R.  Booker     25  Feb  86  */ 

FORMANS   =•»••; 

ENTRYONE  =  "  " ;  f  the  1st  condition  for  an  update,  entered 

!  from  ivupdfrm 
ENTRYT.VO  =  •»  •• ;  [    the  2nd  condition  for  an  update,  entered 

!  ftom  ivupdfrm 
PASCOND  =0;     !  the  field  to  search  for  the  update 
vJHILE  SNTRYOUE  =  "  "  AND  SNTRYT^'JO  =  "  "  DO  I  exit  from  module 
PERFORM  IVUPDFRM;  !  inventory  update  menu 

PUTFORM  IVUPDFRM; 
GETFORM  IVUPDFRM; 

'/7HILE  ENTRYONE  =  "  "  AND  ENTRYT^TO  =  "  "  DO   !  check  input 
PERFORM  EROII^rVEN; 
PUTFORM  EROINVEN; 
GETFORM  EROINVEN; 
ENDWHILE; 
IF  ENTRYONE  NS  "  "  THEN 

PASCOND  =1;  !  update  by  PA# 

PERFORM  "UPDRECRD.IPF"  USING  "X-INVENTORX" " , \ 
"ENTRYONE",  "PASCOND"; 
ELSE 

IF  ENTRYT^^O  NE  "  "  THEN 

PASCOND  =2;     !  update  oy  SERIAL* 
PERFORM  "UPDRECRD.IPF"  USING  "\"IInIVENTOR\"  "  ,  \ 
" ENTRYT^70"  ,  " PASCOND"  ; 
END IF; 
END IF; 
ENDWHILE;        !  formans  not  blank 
ENTRYONE  =  "  ";   ENTRYT:70  =  "  •» ; 
FORMANS  =  "  ";    RETURN; 
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/*  MAINMEN.IPF  (0)  */ 

/*  Brings  up  the  main  AS  Department  data  base  menu,  performs   */ 
/*  DBMEN.IPF  or  REPRTMEN.IPF  */ 

/*  Calls:   MAINFRM.IPF,  ERRORFRiM.  IPF,  DBMEN.IPF,  REPRTMEN.  IPF  */ 
/*  Author:  R.  Booker         15  Jan  86  */ 

FORiMANS  =  ••  "; 

:^HILE  FORIIANS  NE  "3"  DO      1  exit  from  module 

PERFORM  MAINFRM;         !  system  banner  menu 
PUTFORM  MAINFRM; 


vJ 


ETFORM  maimer:-!; 


WHILE  MOT  (F0RI-4AMS  IN  ["l" ,  "2" ,  "3"  ]  )  DO       !  input  check 

PERFORM  ERRORFRH; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRT'I; 
ENDWHILE; 

TEST  FORMAMS 

CASE  "1":  PERFORM  "DBMEN.IPF";     BREAK; 

CASE  "2":  PERFORM  "REPRTMEN. IPF" ;  BREAK; 
SNDTSST; 

ENDWHILE;  1  formans  =  "3" 

RELEASE  ALL; 

CLEAR; 

RETURN; 
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/*  OPTARDLT.IPF  (1.2.1.2)  '  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the  */ 

/*  OPTAR  funding  table.  */ 

/*  Called  by:  OPTARMEN. IPF  */ 

/*  Calls:      OPDELFRM.IPF,  EROOPTAR. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  */ 


i 


FORMANS   =  •»  " 


/ 


Ein'RYONE  =0;  I  entered  from  opdelfrm 
ENTRYT.VO  =  0;  1  entered  from  opdelfrm 
PASCOND  =0;  !  condition  for  deletion 

••7HILS  SNTRYONE  =  0  AND  SHTRYT^O  =  0  DO       !  exit  from  module 
PERFORM  OPDELFR:-!;       -  !  OPTAR  deletion  menu 
PUTFORM  OPDELFRM; 
GETFORM  OPDELFRM; 

^'7HILE  ENTRYONE  =  0  AND  ENTRYT/ZO  =  0  DO   !  check  input 
PERFORM  EROOPTAR; 
PUTFORM  EROOPTAR; 
GETFORM  EROOPTAR; 
ENDWHILE; 
IF  ENTRYONE  NE  0  THEN 

PASCOND  =1;  >  delete  by  RECEIVED 

PERFORM  "DELTRECl.IPF"  USING  "\"OPTAR\"" ,  "ENTRYONE" , \ 
"PASCOND"; 
ELSE 

IF  ENTRYT:V0  NE  0  THEN 

PASCOND  =2;  I  delete  by  ENTRY 

PERFORM  "DELTRECl.IPF"  USING  "\"OPTAR\""A 
"ENTRYTiVO",  "PASCOND"; 
END IF; 
END IF; 
SNDV7HILE;  !  formans  not  blank 

ENTRYONE  =  0;  ENTRYT'.70  =  0; 

FORilANS  =  "  ";      I  places  a  blank  at  calling  module  prompt 
RETURN;  j 
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/*  OPTARiMEN.IPP  -  Brings  up  the  menu  for  the  OPTAR  table  and  */ 

/*  (1.2.1)        offers  the  following  options:  browse  the  */ 

/*  table,  update,  add,  or  delete  a  record,  or  */ 

/*  quit.  */ 

/*  Called  by:  INCOMMEN.IPF  */ 

/*  Calls:  OPTARFRM.IPF,  ERRORFRM. IPF,  BRWTA3LS. IPF,  */ 

/*  OPTARUPD.IPF,  CRTRECRD.IPF,  OPTARDLT.IPF  */ 

/*  Author:  R.  Booker     15  Jan  36  */ 

FORMANS   =  "  "; 

:'7HILE  FORiiANS  NE  "5"  DO       !  exit  from  module 

PERFORM  OPTARFRM;         !  OPTAR  menu 
PUTFORM  OPTARFRII; 
GSTFORM  OPTARFRM; 

1  check  input 

--JHILE  NOT  (FORMANS  IN  ["1"  ,  "2"  ,  "3"  ,  "  4"  ,  "5"  ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILS; 

TEST  FORMANS 

CASE  "1":  PERFORM  "BR^/TABLE.  IPF"  USII^G  -\"OPTAR\" "  ; 

BREAK ; 
CASE  "2":  PERFORM  "OPTARUPD.IPF";  BREAK; 
CASE  "3":  PERFORM  "CRTRECRD.IPF"  USING  "\"OPTAR\""; 

BREAK; 
CASE  "4":  PERFORM  "OPTARDLT.IPF";  BREAK; 
ENDTEST; 
ENDWHILE;  i  formans  =  "5" 

FORI-IANS  =  "  ";      >  places  a  blank  at  calling  module  prompt 
RETURN; 

157 


/*  OPTARUPD.IPF  (1.2.1.1)  */ 

/*  Brings  up  the  menu  for  updating  of  the  OPTAR  funding  table.*/ 

/*  Called  by:  OPTARMEN.IPF  */ 

/*  Calls:      OPUPDFRil.IPF,  EROOPTAR.  IPF,  UPDRECRD.  IPF         */ 

/*  Author:  R.  Booker     22  Jan  36  */ 

F0RI4ANS   =  •»  "; 

ENTRYONE  =0;  !  the  1st  condition  for  an  update,  entered  from 

!  opupdfrm 
EUTRYT.'IO  -   0;    I  the  2nd  condition  for  an  update,  entered  from 

1  opupdfrm 
PASCOND  =0;  1  the  field  to  search  for  the  update 
;7IiILS  EOTRYOME  =  0  AIJD  EUTTIT.IQ   =  0  DO       !  exit  fror:i  module 
PERFORM  OPUPDFRM;  1  personnel  funding  update  menu 

PUTFORM  OPUPDFRM; 
GETFORM  OPUPDFRM; 

WHILE  ENTRYONE  =  0  AND  ENTRYT^^ZO  =  0  DO   1  check  input 
PERFORM  EROOPTAR; 
PUTFORM  EROOPTAR; 
GETFORM  EROOPTAR; 
ENDWHILE; 
IF  ENTRYONE  NE  0  THEN 

PASCOND  =1;  !  update  by  RECEIVED 

PERFORM  "UPDRECRD. IPF"  USING  "\"OPTAR\"",  "ENTRYONE", \ 
"PASCOND"; 
ELSE 

IF  entryt:70  ns  o  then 

PASCOND  =2;  1  update  by  ENTRY 

perform  "UPDRECRD. IPF"  USING  "\"OPTAR\" " , \ 
"ENTRYT^iJO",  "PASCOND"; 
END IF; 
ENDIF; 
ENDWHILE;  1  formans  not  blank 

ENTRYONE  =  0;   ENTRYT:'70  =  0; 
FORMANS  =  "  ";  RETURN; 
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/*  OTHERDLT.IPF  (1.2.3.2)  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the   */ 

/*  other  funds  table.  */ 

/*  Called  by:  OTHERMEN.IPF  */ 

/*  Calls:      OTDELFRM.IPF,  ERIINDIR. IFF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  */ 

FORMANS   =  "  "; 

ENTRYONE  =0;         1  entered  from  otdelfrm 

PASCOND  =  0;  !  condition  for  deletion,  no  choice  =  0 

'-VHILE  ENTRYONE  =  0  DO      1  exit  from  module 

PERFORM  OTDELFRM;       1  other  deletion  menu 
PUTFORM  OTDELFRM; 
GETFORM  OTDELFRM; 

:'7HILS  ENTRYONE  =  0  DO   I  check  input 

PERFORM  ERIINDIR;         !  same  as  for  indirect  table 

PUTFORM  ERIINDIR; 

GETFORM  ERIINDIR; 
ENDWHILE; 

PERFORM  "DELTRECl.IPF"  USING  "X^OTHERX" " ,  "ENTRYONE" ,\ 
"PASCOND"; 

ENDWHILE;        !  formans  not  blank 

ENTRYONE  =  0; 

FORMANS  =  •»  ";    I  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  OTHERIIEN.IPF  -  Brings  up  the  menu  for  other  income,  and 
/*  (1.2.3)  offers  the  following  options:  browse  the 
/*  OTHER  table,  add,  update,  or  delete  a 

/*  record,  or  quit, 

/*  Called  by:  INCOMMEN.IPF 

/*  Calls:      0THERFR21.IPF,  ERRORFRM.  IFF,  BR:7TA3LE.  IPF, 
/*  OTHERUPD.IPF,  CRTRECRD.IPF,  OTHERDLT.IPF 

/*  Author:    R.  Booker  15  Jan  86 


V 
*/ 
*/ 
V 
V 
V 
V 
*/ 


FORI'IANS   =  "  "; 

;7HILE  FORMAMS  NE  "S"  DO 
PERFORM  OTHERFRM; 
PQTFORM  OTHERFRM;  - 
G ETFORM  OTH SRFRM ; 


!  exit  from  module 

1  personnel  other  funds  menu 


!  check  input 

WHILE  NOT  (F0RI4ANS  IN  ["l"  ,  "2"  ,  "3"  ,  "4- ,  "S"  ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 


TEST  FORMANS 
CASE  "1" 

CASE  "2" 
CASE  "3" 

CASE  "4" 
ENDTEST; 


PERFORM  "BR^VTABLE.IPF"  USING  "\"OTHER\""; 

BREAK; 

PERFORM  "OTHERUPD.IPF";  BREAK; 

PERFORM  "CRTRECRD.IPF"  USING  "\"OTHER\""; 

BREAK ; 

PERFORM  "OTHERDLT.IPF";  BREAK; 


ENDWHILE; 


1  formans  =  "5" 


FORT-IANS    = 
RETURN; 


_  II  n  , 


1  places  a  blank  at  calling  module  prompt 
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/*  OTHERUPD.IPF  -  Brings  up  the  menu  for  updating  of  the  other*/ 

/*  (1.2.3.1)      funds  table.  V 

/*  Called  by:  OTHERMEN. IPF  */ 

/*  Calls:      OTUPDFRM.IPF,  ER2INDIR. IPF,  UPDRECRD.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  */ 


ENTRYONE  =  "  " ; 
SNTRYT^VO  =  "  "j 
PASCOND  =  0; 


FORTIANS   =  "  "; 

the  1st  condition  for  an  update,  entered 
from  otupdfrra 

the  2nd  condition  for  an  update,  entered 
from  otupdfrm 

the  field  to  search  for  the  update 
'/JHILE  ENTRYONE  =  "  "  AND  ENTRYT^VO  =  "  "  DO  !  exit  from  module 
PERFORM  OTUPDFRM;  1  indirect  funding  update  menu 

PUTFORM  OTUPDFRM; 
GETFORM  OTUPDFRM; 
//HILE  ENTRYONE  =  ••  "  AND  ENTRYT^70  =  ••  '•  DO   !  check  input 

PERFORM  ER2INDIR;      !  same  as  for  the  indirect  table 
PUTFORM  ER2INDIR; 
GETFORM  ER2INDIR; 
END'.VHILE; 
IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;  !  update  by  cost  code 

PERFORM  "UPDRECRD.IPF"  USING  "\"OTHER\"",  "ENTRYONE", \ 
"PASCOND"; 
ELSE 

IF  ENTRYT:V0  NE  "  "  THEN 

PASCOND  =  2;     !  update  by  principl 
PERFORM  "UPDRECRD.IPF"  USING  "\"OTHER\" " , \ 
"ENTRYTIVO",  "PASCOND"; 
END IF; 
E^IDIF; 
ENDWHILE;        !  formans  not  blank 
ENTRYONE  =  "  ";   ENTRYTWO  =  "  "; 
FORMANS  =  "  ";    RETURN; 
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/*  OUTSTRPT.IPF  (2.3)  */ 

/*  This  module  prints  the  outstanding  TO(s)  report.  */| 

/*  Called  oy:  REPRTMEN.IPF  */: 

/*  Calls:      TRPLDFRM.IPF  */ 

/*  Author:    R.  Booker    15  Jan  85  */ 

PERFORM  TRPLDFRM;  !  Table  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 


E.LSTR  =  25; 
E.OPRN  =  TRUE; 
E.PDEP  =  62; 
S.P^-^ID  =  130; 


Change  string  length  to  25  characters 
Send  output  to  printer. 
Change  page  depth  to  62  lines. 
Change  page  vidth  to  130  character. 


USE  TVLSXP  i  Travel  Expenses  table. 

REPORT  "OUTSTRPT"  ORDER  BY  AZ  COSTCODE; 

FINISH  TVLEXP 

E.LSTR  =15;  !  Change  all  environment  variables  to  their 

I  defaults. 
E.OPRN  =  FALSE; 
E.PDEP  =  60; 
E.PWID  =  120; 

FORMANS  =  "  " ;  1  places  a  blank  at  calling  module's  prompt 

RETURN; 
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/*  PERSDMEN.IPF  (1.1.1)  -  Brings  up  the  personnel  menu 

/*  Called  by:  EXPENMEN.IPF 

/*  Calls:      PERSDFRM.IPF,  ERRORFRM. IPF,  PFUNDMEN. IPF, 

/*  PHISTMEN.IPF 

/*  Author:  R.  Booker  15  Jan  86 


V 

*/ 
*/ 
*/ 
*/ 


FORMANS  =  "  "; 


^VHILE  FORilANS  NE  "3"  DO 
PERFORM  PERSDFRI'I; 
PUTFORM  PERSDFRM; 

GETFORn  PERSDFRM; 


!  don't  exit  module 
I  personnel  menu 


V'7HILE    NOT    (FORMANS    IN    ["I"  ,  "2"  ,  "3"  ]  )    DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 


TEST  FORMANS 

CASE  "1": 
CASE  "2": 

SNDTEST; 


PERFORM  "PFUNDMEN.IPF";  BREAK; 
PERFORM  "PHISTMEN.IPF";  BREAK; 


ENDWHILE; 


!  formans  =  "3" 


FORMANS  =  "  "; 
RETURN; 


!  places  a  blank  at  calling  menu  prompt 
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/*  PFUNDDLT.IPF  (1.1.1.1.2)  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  the  */ 

/*  personnel  funding  table,  */ 

/*  Called  by:  PFUNDMEN.IPF  */ 

/*  Calls:      PFDELFRM.IPF,  EROPFUND. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  V 


for:ians  =  "  " 


I 


EriTRYONE  =  "  ";         !  entered  from  pfdelfrm 
ENTRYT^VO  =  0;  '  !  entered  from  pfdelfrm 

PASCOND  =0;  !  condition  for  deletion 

:7HILS  ENTRYONS  =  "  "  A:jD  SNTRYT^/O  =  0  DO     !  exit  from  module 
PERFORM  PFDELFRM;         !  personnel  funding  deletion  menu 
PUT FORM  PFDELFRM; 
GETFORM  PFDELFRM; 

';7HILE  ENTRYONE  =  "  "  AND  ENTRYTVO  =  0  DO   !  check  input 
PERFORM  EROPFUND; 
PUTFORM  EROPFUND; 
GETFORM  EROPFUND; 
ENDV7HILS; 
IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;        1  delete  by  last  name 
PERFORM  "DELTRECl.IPF"  USING  "\"PFUNDING\" " , \ 
"ENTRYONE",  "PASCOND"; 
ELSE 

IF  ENTRYTWO  NS  0  THEN 

PASCOND  =2;    !  delete  by  labor  # 
PERFORM  "DELTRECl.IPF"  USING  "\"PFUNDING\"" , \ 
" ENTRYT:70"  ,  " PASCOND"  ; 
END IF; 
END IF; 
ENDWHILE;  1  formans  not  blank 

ENTRYONE  =  "  ";  ENTRYT^VO  =  0; 

FORMANS  =  "  •»;      1  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  PFUNDMEN.IPF  -  Brings  up  the  menu  for  personnel  funding.   */ 

/*  (1.1.1.1)  The  following  options  then  may  be  selected;*/ 

/*  browse  the  personnel  funding  table,  update,*/ 

/*  add  or  delete  a  record.                  */ 

/*  Called  by:  PERSDMEN.IPF                                  */ 

/*  Calls:  PFUNDFRM.IPF,  ERRORFRM. IPF,  3RWTABLE. IPF,        */ 

/*  CRTRECRD.IPF,  PFUNDUPD. IPF,  PFUNDDLT.IPF         */ 

/*  Author:  R.  Booker           15  Jan  86                    */ 


FORMANS   =  "  ••; 


:7HILS    FORIdAi^S    NS    "5"    DO 
PERFORM    PFUHDFRM; 
PUTFORM   PFUUDFRM; 


GETFORM  PFUNDFR!!; 


!  exit  from  module 

1  personnel  funding  menu 


!  check  input 

;7HILE  NOT  (FORMANS  IN  ["1"  ,  ••2'' ,  "3"  ,  "4"  ,  "5"  ]  )  DO 

PERFORM  ERRORFRM; 
PUTFORM  ERRORFRM; 
GETFORT-I  ERRORFRM; 
ENDWHILE; 


TEST  FORMANS 
CASE  "l" 

CASE  '•2" 
CASE  "3" 

CASS  "4" 
ENDTEST; 


PERFORM  "BRWTABLE.IPF"  USING  "X'^PFUNDINGX" " ; 

BREAK ; 

PERFORM  "PFUNDUPD. IPF";  BREAK; 

PERFORM  "CRTRECRD.IPF"  USING  "\"PFUNDING\" " ; 

BREAK; 

PERFORM    "PFUNDDLT.IPF";    BREAK; 


ENDWHILE; 


1    formans   =   "5 


_     tt  en 


F0RI4ANS    = 


_      tl       w 


RETURN; 


165 


/*  PFUNDRPT.IPF  (2.1.1) 

/*  This  module  prints  the  personnel  funding  report. 

/*  Called  oy:  PRPRTMEN. IFF 

/*  Calls:      TRPLDFRM.IPF 

/*  Author:     R.  Booker      15  Jan  36 


V 
V 
V 
*/ 
V 


PERFORM  TRPLDFRM;  !  Table  and  Report  Loading  form 
PUTFORIl  TRPLDFRM; 


S.LSTR 

=  25; 

E.OPRN 

=  TRUE; 

B.PDEP 

=  52; 

e.p:jid 

=  130; 

!  Change  string  length  to  25  characters 

!  Send  output  to  printer. 

!  Change  page  depth  to  62  lines. 

!  Change  page  width 'to  130  character. 


USE  PFUNDING 


Personnel  Funding  table. 


REPORT  "PFUNDRPT"  ORDER  3Y  AZ  PFUNDING. LNAME, \ 

AZ  PFUNDING. FUNDFROM,  AZ  PFUNDING. FUNDTO 
1  Report  was  created  with  K-Report. 

FINISH  PFUNDING 


E. 

.LSTR  = 

15; 

.OPRN  = 

FALSE; 

E. 

.PDEP  = 

50; 

.PWID  = 

120; 

FC 

3RMANS  = 

_  II  n  , 

~                1 

RETURN; 

1  Change  all  environment  variaoles  to  their 
1  defaults. 


!  places  a  blank  at  calling  module's  prompt 
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/*  PFUNDUPD.IPF  (1.1.1.1.1)  -  Brings  up  the  menu  for  updating  */ 
/*  of  the  personnel  funding  table.  */ 

/*  Called  oy:  PFUNDMEN.IPF  */ 

/*  Calls:      PFUPDFRil.IPF,  EROPFUND.  IPF,  UPDRSCRD.IPF         */ 
/*  Author:  R.  Booker     22  Jan  86  */ 

F0RI4ANS   =  •»  "; 

ENTRYONE  =  ••••;  i  the  1st  condition  for  an  update,  entered 

!  from  pfupdfrm 
ENTRYT:'70  =0;   1  the  2nd  condition  for  an  update,  entered 

!  from  pfupdfrm 
PASCOND  =  0;     1  the  field  to  search  for  the  update 
',7HILS  EMTRYOME  =  "  '•  AND  EUTRYT:10   =  0  DO  I  exit  from  module 
PERFORM  PFUPDFRM;       I  personnel  funding  update  menu 
PUTFORM  PFUPDFRM; 
GETFORM  PFUPDFRM; 

WHILE  ENTRYONE  =  "  "  AND  ENTRYT^fO  =  0  DO   !  check  input 
PERFORM  EROPFUND; 
PUTFORM  EROPFUND; 
GETFORM  EROPFUND; 
ENDWHILE; 
IF  ENTRYONE  NE  "  "  THEN 

PASCOND  =1;       !  update  by  last  name 
PERFORM  "UPDRECRD.IPF"  USING  "X-PFUNDINGX"" , \ 
" ENTRYONE " ,  " PASCOND " ; 
ELSE 

IF  ENTRYT:70  NE  0  THEN 

PASCOND  =2;       I  update  by  laoor  # 
PERFORM  "UPDRECRD.IPF"  USING  "X^'PFUNDINGX"  "  ,  \ 
"ENTRYT^^O",  "PASCOND"; 
ENDIF; 
END IF; 
END;"7HILE;        !  formans  not  blank 
ENTRYONE  =  "  •• ;   ENTRYT^,70  =  0; 
FORMANS  =  "  ";    RETURN; 
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/*  PHISTDLT.IPF  (1.1.1.2.2)  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  */ 

/*  personnel  history  table.  */ 

/*  Called  by:  PHISTMEN.IPF  */ 

/*  Calls:      PHDELFRM.IPF,  EROPHIST. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     19  Jan  86  */ 

FORMANS   =  •»  "; 

ENTRYONE  =  "  " ;         '  entered  from  phdelfrm 

PASCOND  =0;  !  condition  for  deletion,  no  choice  =  0 

:7HILE  ENTRYONE  =  "  "  DO      1  exit  from  module 

PERFORM  PHDELFRM;        !  personnel  history  deletion  menu 
PUTFORM  PHDELFRM; 
GETFORM  PHDELFRM; 

WHILE  ENTRYONE  =  "  "  DO   !  check  input 

PERFORM  EROPHIST; 

PUTFORM  EROPHIST; 

GETFORM  EROPHIST; 
SND!7HILE; 

PERFORM  "DELTRECl.IPF"  USING  "\"PHISTORY\" " ,  " ENTRYONE ",\ 
"PASCOND"; 

SNDWHILE;  !  formans  not  blank 

ENTRYONE  =  "  "; 

FORMANS  =  "  ";      1  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  PHISTMEN.IPF  -  Brings  up  the  menu  for  the  personnel  history*/ 

/*  (1.1.1.2)      table.   The  following  options  are  then 

/*  possible:  browse  a  table,  update,  add  or 

/*  delete  a  record,  and  quit. 

/*  Called  by:  PERSDMEN.IPF 

/*  Calls:  PHISTFRM.IPF,  ERRORFRM. IPF,  BRWTABLE. IPF, 

/*  PHISTUPD.IPF,  CRTRECRD.IPF,  PHISTDLT.IPF 

/*  Author:  R.  Booker     15  Jan  86 


V 
*/ 
*/ 
*/ 


*/ 
*/ 
*/ 


FORMANS   = 


_  »  It , 


/7HILS  FORriAMS  UE    "5"  DO 
PERFORM  PHISTFRM; 
PUTFORM  PHISTFRM; 
GSTFORM  PHISTFRM; 


1  exit  from  module 

!  personnel  history  menu 


!  check  input 
I7HILE  NOT  (F0R:1ANS  IN  ["1"  ,  "2"  ,  "3"  ,  "4"  ,  "S"  ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

G  ETF ORM  E RRORF RM ; 
ENDWHILS; 


TEST  FORMANS 
CASE  "1" 

CASE  "2'' 
CASE  "3" 

CASE  'M" 
ENDTEST; 


PERFORM  "BRWTABLE. IPF"  USING  "\"PHISTORY\" " ; 

BREAK ; 

PERFORM  "PHISTUPD.IPF";  BREAK; 

PERFORM  "CRTRECRD.IPF"  USING  "\"PHISTORY\"" ; 

BREAK; 

PERFORM  "PHISTDLT.IPF";  BREAK; 


ENDWHILE; 


!  formans  =  "5 


FORMANS  =  "  "; 


RETURN; 
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/*  PHISTRPT.IPF  (2.1.2) 

/*  This  module  prints  the  personnel  history  report 

/*  Called  by:  PRPRTMEN.IPF 

/*  Calls:      TRPLDFRM.IPF 

/*  Author:    R.  Booker       15  Jan  86 


*/ 
V 
*/ 
V 
V 


PERFORM  TRPLDFRM;  !  Table  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 


E.LSTR  =  25; 
E.OPRN  =  TRUE; 
2.PDEP  =  52; 
E.P'VID  =  136; 
USE  PHISTORY 


Change  string  length  to  25  characters 
Send  output  to  printer. 
Change  page  depth  to  52  lines. 
Change  page  width  to  135  character. 
Personnel  History  table. 


REPORT  "PHISTRPT"  ORDER  BY  AZ  LNAME 


FINISH  PHISTORY 

E.LSTR  =  15; 

E.OPRN  =  FALSE; 
E.PDEP  =  60; 
E.PWID  =  120; 


!  Report  was  created  with  K-Report. 


!  Change  all  environment  variaoles  to 
!  their  defaults. 


F0RI4ANS  = 
RETURN; 


!  places  a  blank  at  calling  module's  prompt 
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/*  PHISTUPD.IPF  -  Brings  up  the  menu  for  updating  of  the  */ 

/*  (1.1.1.2.1)    personnel  history  table.  */ 

/*  Called  by:  PHISTMEN.IPF  */ 

/*  Calls:      PHUPDFRM.IPF,  EROPHIST. IPF,  UPDRECRD.IPF  */ 

/*  Author:  R.  Booker     18  Jan  86  */ 

PORMANS   =  ••  "; 

ENTRYONE  =  "  •• ;     i  the  condition  for  an  update,  entered  from 

1  phupdfrm 

PASCOND  =0;        !  the  field  to  search  for  the  update; 

I  0  =  no  option 

:7HILE  ENTRYONE  =  "  "  DO      !  exit  from  module 

PERFORM  PHUPDFRM;        1  personnel  history  update  menu 
PUTFORM  PHUPDFRM; 
GETFORM  PHUPDFRM; 

:VHILE  ENTRYONE  =  "  "  DO   !  check  input 

PERFORM  SROPHIST; 

PUTFORM  EROPHIST; 

GETFORM  EROPHIST; 
ENDWHILE; 

PERFORM  "UPDRECRD.IPF"  USING  "\"PHISTORY\"" ,  "ENTRYONE" A 
"PASCOND"; 

ENDWHILE;        !  formans  not  blank 

ENTRYONE  =  "  "; 

F0R:4ANS  =  ••  ";    !  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  PRPRTMEN.IPF  (2.1)  -  Brings  up  the  personnel  reports  menu  */ 

/*  Called  by:  REPRTMEN.IPF  */ 

/*  Calls:      PFUNDRPT.IPF,  PHISTRPT. IPF,  PRPRTFRM. IPF,  */ 

/*  ERRORFRM.IPF  */ 

/*  Author:    R.  Booker         15  Jan  86  */ 


FORMANS  =  "  "; 


J-JHILE  F0R:-1ANS  NE  "3"  DO      1  exit  from  module 

PERFORM  PRPRTFRM;         I  personnel  menu 

PUTFORM  PRPRTFRM; 
GSTFORM  PRPRTFRM; 

:miLB   NOT  (forI'Ians  in  [••i","2'',''3"])  do 

PERFORM  ERRORFRM; 
PUTFORM  ERRORFRM; 
GETFORM  ERRORFRM; 
ENDWHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "PFUNDRPT.IPF";  3REAX; 

CASE  "2":  PERFORM  "PHISTRPT. IPF" ;  BREAK; 
ENDTSST; 

ENDWHILE;        !  formans  =  "3" 

FORMANS  =  "  ";   !  places  a  blank  at  calling  modules  prompt 
RETURN; 
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/*  PURCHDLT.IPF  (1.1.3.2)  */ 

/*  Brings  up  the  menu  for  the  deletion  of  a  record  from  */ 

/*  purchase  table.  */ 

/*  Called  by:  PURCHMEN.IPF  */ 

/*  Calls:      PUDELFRM.IPF,  EROTVLEX. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     22  Jan  36  */ 

FORriANS   =••••; 

ENTRYONE  =  "  " ;         1  entered  from  pudelfrm 

PASCOND  =  0;  1  condition  for  deletion,  no  choice  =  0 

/7HILE  ENTRYONE  =  "  "  DO      I  exit  from  module 

PERFORM  PUDELFRM;        i  purchase  deletion  menu 
PUTFORM  PUDELFRM; 
GETFORM  PUDELFRM; 

I'/HILE  ENTRYONE  =  "  "  DO   I  check  input 

PERFORM  EROTVLEX;    !  same  error  form  as  travel 
PUTFORM  EROTVLEX;    !  expenses 
GETFORM  EROTVLEX; 

ENDWHILE; 

PERFORM  "DELTRECl.IPF"  USING  "\"PURCHASE\" " ,  "ENTRYONE", \ 
"PASCOND"; 

ENDWHILE;        !  formans  not  blank 

ENTRYONE  =:  "  " ; 

FORI'-IANS  =  "  ";   I  places  a  blank  at  calling  module  prompt 

RETURN; 
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/*  PURCHIdEN. IPF  -  Brings  up  the  menu  for  purchase,  and  offers*/ 

/*  (1.1.3)         the  following  options;  browse  the  table,    */ 

/*  update,  add,  delete  a  record  from  it,  or 

/*  quit. 

/*  Called  by:  SXPENMEN.IPF 

/*  Calls:      PURCHFRM.IPF,  ERRORFRiM.  IPF,  BRWTA3LE.  IPF, 

/*  PURCHUPD,  CRTRECRD.IPF,  PURCHDLT.IPF 

/*  Author:  R.  Booker         15  Jan  36 


*/ 
V 
*/ 
*/ 


*/ 

*/ 


F0RI4ANS   =  "  "; 


:^HILE  FORriANS  NE  "5"  DO 
PERFORIl  PURCHFRM; 
PUTFORM  PURCHFRII; 
GSTFORM  PURCHFRII; 


i  exit  from  module 

1  purchase  menu 


!  check  input 

'-JUILE   NOT  (F0R:4ANS  IN  [  "1"  ,  "2"  ,  "3"  ,  "4"  ,  "S"  ]  )  DO 

PERFORM  ERR0RFRI4; 

PUTFORM  SRRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "3RWTA3LE.  IPF"  USING  "X'^PURCHASEX""  ; 

BREAK ; 
CASE  "2":  PERFORM  "PURCHUPD. IPF" ;  BREAK; 
CASE  "3":  PERFORM  "CRTRECRD.IPF"  USING  "X''PURCHASEX""  ; 

BREAK ; 
CASE  "4":  PERFORM  "PURCHDLT.IPF";  BREAK; 
ENDTEST; 


ENDWHILE;      !  formans  =  "5" 

FORMANS  =  "  ";!  places  a  blank  at  calling  module  prompt 

RETURN; 
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/*  PURCHUPD.IPF  -  Brings  up  the  menu  for  updating  of  the  */ 

/*  (1.1.3.1)      purchase  table.  */ 

/*  Called  oy:  PURCHMEN.IPF  */ 

/*  Calls:      PUUPDFRM.IPF,  SROTVLSX. IPF,  QPDRSCRD.IPF  */ 

/*  Author:  R.  Booker     23  Jan  86  */ 

FORMANS   =•••»; 

E^ITRYONE  =  "  '•;     I  the  condition  for  an  update,  entered 

I  from  puupdfrm 

PASCOND  =0;       i  the  field  to  search  for  the  update; 

1  0  =  no  option 

NHILS  ENTRYONE  =  "  "  DO       !  exit  from  module 

PERFORM  PUUPDFRM;        !  purchase  update  menu 
PUTFORM  PUUPDFRM; 
GETFORM  PUUPDFRM; 

WHILE  ENTRYONE  =  "  "  DO   !  check  input 

PERFORM  EROTVLEX;    1  same  error  form  as  travel 
PUTFORM  EROTVLEX;    !  expenses 
GETFORM  EROTVLEX; 

EMDWHILS; 

PERFORM  "UPDRECRD.IPF"  USING  "\"PURCHASE\" " ,  "SMTRYONS",\ 
"PASCOND"; 

SNDWHILE;       I  formans  not  blank 

ENTRYONE  =  "  " ; 

FORMANS  =  •»•*;   I  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  PURRTMEN.IPF  -  Brings  up  the  requisition  status/quarterly  */ 

/*  (2.2)  inventory  reports  menu  */ 

/*  Called  by:      REPRTMEN.IPF  */ 

/*  Also  calls:     PURRTFRiM.  IPF,  ERRORFRM.  IPF,  REQUSRPT.  IPF,  */ 

/*  INVENRPT.IPF  */ 

/*  Author:     R.  Booker       15  Jan  86  */ 

FORMANS  =  ••  "; 

WHILE  FORIIANS  NE  "a"  DO      i  exit  from  module 

PERFORM  PURRTFRM;  1  requisition  status/quarterly  inventory 

PUTFORM  PURRTFRM;  !  form 
GETFORM  PURRTFRM; 

WHILE  NOT  (FORMANS  IN  ("1"  ,  "2** ,  "S"  ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDIVHILE; 

TEST  FORMANS 

CASE  "1":  PERFORM  "REQUSRPT. IPF" ;  BREAK; 

CASE  "2":  PERFORM  "INVENRPT. IPF" ;  BREAK; 
ENDTEST; 

ENDWHILS;        !  formans  =  "3" 

FORMANS  =  •••»;   !  places  a  blank  at  calling  modules  prompt 
RETURN; 


4 
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/*  REPRTMEN.IPF  -  Brings  up  the  reports  menu,  and  performs 

/*  (2)  either  PRPRTiMEN.  IPF,  PURRTMEN.  IPF, 

/*  OUTSTRPT.IPF 

/*  Called  by:  MAINMEN.IPF 

/*  Calls:  REPRTFRM.IPF,  ERRORFRM. IPF,  PRPRTMEN. IPF, 

/*  PURRTMEN.IPF,  OUTSTRPT.IPF 

/*  Author:  R.  Booker  15  Jan  86 


V 
*/ 
V 
V 

*/ 
*/ 
*/ 


FORMANS  =  "  "; 


WHILE  FORMANS  NE 


n  c  n 


DO 


I  exit  from  module 


PERFORM  REPRTFRM; 
PUTFORM  RSPRTFRM; 
GETFORM  REPRTFRM; 


!  resorts  menu 


WHILE  NOT  (FORMANS  IN  ["l" , "2" , "4" , "5" ] )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDV7HILE; 


TEST  FORMANS 


/■ 


n  1  II 


CASE 
CASE  "2" 
CASE  "3" 
CASE  "4" 
ENDTEST; 


PERFORM  PRPRTMEN 
PERFORM  PURRTMEN 
PERFORM  BALACRPT 
PERFORM  OUTSTRPT 


BREAK; 
BREAIC; 
BREAK; 
BREAK ; 


7 


ENDWHILE; 


!  formans  =  "5 


FORMANS  =  "  ";   I  places  a  blank  at  calling  module's  prompt 
RETURN; 
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/*  REQOSRPT.IPF  (2.2.1) 

/*  This  module  prints  the  requisition  status  report 

/*  Called  by:  PURRTMEN. IFF 

/*  Calls:      TRPLDFRM.IPF 

/*  Author:    R.  Booker        15  Jan  86 


*/ 
V 
V 
*/ 
*/ 


PERFORM  TRPLDFRM;  I  Table  and  Report  Loading  form 
PUTFORM  TRPLDFRM; 


E.LSTR 

=  50; 

E.OPRN 

=  TRUE; 

2.PDEP 

=  62; 

S.P^-^ID 

=  130; 

1  Change  string  length  to  30  characters 

1  Send  output  to  printer. 

!  Change  page  depth  to  52  lines. 

1  Change  page  width  to  130  character. 


USE  PURCHASE 


•  Purchase  table. 


REPORT 

"REQUSRPT" 

FINISH 

PURCHASE 

E.LSTR 

=  15; 

E.OPRN 

=  FALSE; 

E.PDEP 

=  60; 

E.P'VID 

=  120; 

I  Report  was  created  with  K-Report. 


1  Change  all  environment  variaoles  to  their 
1  defaults. 


I 


FORilANS  =  "  ";   !  places  a  blank  at  calling  module's  prompt 
RETURN; 
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/*  TRAVLMEN.IPF  -  Brings  up  the  menu  for  travel  expenses,  */ 
/*  (1.1.2)  and  offers  the  following  options:  browse  the*/ 
/*  travel  expense  table,  update,  add  or  delete  */ 

/*  a  record  from  it,  */ 

/*  Called  by:  EXPENMEN.IPF  */ 

/*  Calls:  TRAVFRM.IPF,  ERRORFRM. IPF,  3RWTABLE. IPF,  */ 

/*         TVLEXUPD.IPF,  CRTRECRD.IPF,  TVLEXDLT.IPF  */ 

/*  Author:  R.  Booker  15  Jan  86  */ 


FORMANS   =  "  "; 


■JHILS  FORMAMS  HE  "5"  DO 


!  exit  from  module 


PERFORM  TRAVFRM; 
PUTFORM  TRAVFRM; 
GETFORM  TRAVFRM; 


!  travel  ext^enses  menu 


1  check  input 

WHILE  NOT  (FORMANS  IN  ["1"  , '•2"  ,  "3"  , 'M"  ,  "5"  ]  )  DO 

PERFORM  ERRORFRM; 

PUTFORM  ERRORFRM; 

GETFORM  ERRORFRM; 
ENDWHILE; 


TEST  FORMANS 

CASE  "1":  PERFORM  "BRWTABLS. IPF"  USING  "\"TVLEX?\" " ; 

BREAK ; 
CASE  "2":  PERFORM  "TVLEXUPD.IPF";  BREAIC; 
CASE  "3":  PERFORM  "CRTRECRD.IPF"  USING  "\"TVLEXP\" " ; 

BREAK ; 
CASE  "4":  PERFORM  "TVLEXDLT.IPF";  BREAK; 
ENDTEST; 
ENDWHILE;  !  formans  =  "5" 


FORMANS  = 
RETURN; 


_  It  n  . 


I  places  a  blank  at  calling  module  prompt 
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/*  TVLEXDLT.IPF  -  Brings  up  the  menu  for  the  deletion  of  a  */ 

/*  (1.1.2.2)      record  from  the  travel  expenses  table.  */  | 

/*  Called  by:  TRAVLMEN. IPF  */ 

/*  Calls:      TVDELFRM.IPF,  EROTVLEX. IPF,  DELTRECl.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  */ 

FORMANS   =  "  •»; 

ENTRYONE  =  "  " ;         i  entered  from  tvdelfrm 

PASCOND  =  0;  !  condition  for  deletion,  no  choice  =  0 

/ZHILE  EMTRYONS  =  "  "  DO      1  exit  from  module 

PERFORM  TVDELFRM;        i  travel  expenses  deletion  menu 
PUTFORM  TVDELFRM; 
GETFORM  TVDELFRM; 

'/7HILE  ENTRYONS  =  "  "  DO   !  check  input 

PERFORM  EROTVLEX; 

PUTFORM  EROTVLEX; 

GETFORM  EROTVLEX; 
ENDWHILE; 

PERFORM  "DELTRECl.IPF"  USING  "\"TVLEXP\" " ,  "ENTRYONE",\ 
"PASCOND"; 

ENDWHILS;         !  formans  not  blank 

ENTRYONE  =  "  "; 

FORMANS  =  "  ";    !  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  TVLEXUPD.IPF  -  Brings  up  the  menu  for  updating  of  the  */ 

/*  (1.1.2.1)      travel  expenses  table.  */ 

/*  Called  by:  TRAVLMEN.IPF  */ 

/*  Calls:      TVUPDFRM.IPF,  3R0TVLSX. IPF,  UPDRECRD.IPF  */ 

/*  Author:  R.  Booker     22  Jan  86  */ 

FORMANS   =  "  ••; 

SNTRYONE  =  "  " ;     •  the  condition  for  an  update,  entered 

!  from  tvupdfrm 

PASCOND  =  0;        !  the  field  to  search  for  the  update; 

!  0  =  no  option 

^VHILE  ENTRYONE  =  "  "  DO       !  exit  from  module 

PERFORM  TVUPDFRM;        !  travel  expenses  update  menu 
PUTFORM  TVUPDFRM; 


o 


ETFORM  TVUPDFRM; 


I-JHILE  ENTRYONS  =  "  "  DO   I  check  input 

PERFORM  EROTVLEX; 

PUTFORM  EROTVLEX; 

GETFORM  EROTVLEX; 
ENDWHILS; 

PERFORM  "UPDRECRD.IPF"  USING  "\"TVLSXP\" " ,  "EMTRYONE",\ 
"PASCOND"; 

ENDWHILE;        !  formans  not  blank 

ENTRYONE  =  "  " ; 

FORMANS  =  '•••;    !  places  a  blank  at  calling  module  prompt 
RETURN; 
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/*  UPDRECRD.IPF  -  This  module  updates  a  record  in  a  table.    */ 

/*  Called  by:   INDIRUPD. IFF,  OPTARUPD. IFF,  PFUNDUPD. IPF,  V 

/*              PHISTUPD.IPF,  PURCHUPD.IPF,  TVL2XUPD. IPF,  */ 

/*              OTHERUPD.IPF,  INVENUPD. IPF  */ 

/*  Calls:       INDIRECT. IPF,  OPTAR.IPF,  PFUNDING. IPF,  */ 

/*              PHISTORY.IPF,  PURCHASE. IPF,  TVLEXP.IPF,  */ 

/*              OTHER. IPF,  TABLDFRM.IPF,  INVENTOR. I PF  */ 

/*  Author:  R.  Booker         18  Jan  36  */ 

E.ICAS  =  TRUE;     !  ignore  case  differences  among  string  values 
PERFORM  TA3LDFRM; 
PUTFORM  TABLDFRM; 


TABLE  =  #A;        !  passed  from  calling  module 

UPDATVAR  =  #3;      1  the  condition  variable  for  the  search 

COND  =  #C; !  the  condition  field  for  selecting  records  for  update 

TEST  TABLE 

CASE  "INDIRECT": 

USE  INDIRECT; 

LOAD  FROM  INDIRECT;      1  the  indirect  funds  entry  form 

IF  COND  =  1  THEN        !  browse  on  COSTCODE 

BROWSE  INDIRECT  FOR  COSTCODE  =  UPDATVAR  ALL  \ 
WITH  INDIRECT; 
ELSE 

IF  COND  =  2  THEN     !  browse  on  PRINCIPL 

BROWSE  INDIRECT  FOR  PRINCIPL  =  UPDATVAR  ALL  \ 
WITH  INDIRECT; 
EJIDIF; 
END IF; 
BREAK; 
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CASE  "INVENTOR": 

USE  INVENTORY- 
LOAD  PROM  INVENTOR;     1  the  inventory  entry  forni 
IF  COND  =  ITHEN        i  browse  on  PA# 
3R0WSE  INVENTOR  FOR  PA#  =  UPDATVAR  ALL  \ 
'-7ITH  INVENTORY- 
ELSE 

IF  COND  =  2  THEN     !  browse  on  SERIALS 

BROWSE  INVENTOR  FOR  SERIALS  =  UPDATVAR  ALL  \ 
:^ITH  INVENTORY- 
END  IF  ; 
SNDIF; 
3RSAK; 

CASE  "OPTAR": 

USE  OPTAR; 

LOAD  FROM  OPTAR;  !  the  OPTAR  entry  form 

IF  COND  =  1  THEN  I  browse  on  RECEIVED 

BROWSE  OPTAR  FOR  RECEIVED  =  UPDATVAR  ALL  \ 
WITH  OPTAR; 
ELSE 

IF  COND  =  2  THEN       !  browse  on  ENTRY 

BROWSE  OPTAR  FOR  ENTRY  =  UPDATVAR  ALL  \ 
WITH  OPTAR; 
END IF; 
END IF; 
BREAK; 
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CASE  "OTHER": 

USE  OTHER; 

LOAD  FROM  OTHER;        !  the  other  funds  entry  form 

IF  COND  =  1  THEN        !  browse  on  COSTCODE 

BROWSE  OTHER  FOR  COSTCODE  =  UPDATVAR  ALL  \ 
WITH  OTHER; 
ELSE 

IF  COND  =  2  THEN   !  browse  on  PRINCIPL 

BROWSE  OTHER  FOR  PRINCIPL  =  UPDATVAR  ALL  \ 
WITH  OTHER; 
END IF; 
ENDIF; 
BREAK; 

CASE  "PFUNDING": 

USE  PFUNDING; 

LOAD  FROM  PFUNDING;  1  the  personnel  funding  entry  form 

IF  COND  =  1  THEN     !  browse  on  LNAiME 

BROWSE  PFUNDING  FOR  LNAIIE  =  UPDATVAR  ALL  \ 
WITH  PFUNDING; 
ELSE 

IF  COND  =  2  THEN  !  browse  on  LABOR* 

BROWSE  PFUNDING  FOR  LA30R#  =  UPDATVAR  ALL  \    1 
WITH  PFUNDING; 
ENDIF; 
ENDIF; 
BREAK; 

CASE  "PHISTORY": 

USE  PHI STORY; 

LOAD  FROM  PHISTORY;  I  the  personnel  history  entry  form 

BROWSE  PHISTORY  FOR  LNAME  =  UPDATVAR  ALL  WITH  PHISTORY; 

BREAK; 
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CASE  "PURCHASE": 

USE  PURCHASER- 
LOAD  FROM  PURCHASE;    !  the  purchase  entry  forni 
BROWSE  PURCHASE  FOR  DOC#  =  UPDATVAR  ALL  :7ITH  PURCHASER- 
BREAK  ; 

CASE  "TVLEXP": 

USE  TVLSXP; 

LOAD  FROM  TVLEXP;    !  the  travel  expenses  entry  form 
BROWSE  TVLEXP  FOR  DOC#  =  UPDATVAR  ALL  WITH  T^/LSXP; 
BREAK; 
SNDTEST; 

FINISH  ALL; 

FORMANS  =  "  ■•; 

RETURN; 
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APPENDIX  J 
LIST  OF  TABLES 


This  appendix  contains  a  list  of  the  AS  System's  ta- 
bles.  Appendix  C  (the  Data  Dictionary)  and  the  AS  System's 
User's  Manual  contains  additional  information  about  the 
taoles's  fields.   The  inclosed  information  may  be  obtained 
by  using  KnowledgeMan's  "show"  command. 
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Table  name 
File  name 
Read  Access 
:7rite  Access 
Creation  Date 
Modification  Date 
Number  of  Records 


INDIRECT 

INDIRECT. IT3 

ABCDEFGHIJKLIINOP 

A3CDEFGHIJKLMN0P 
02/25/36 
02/25/86 
44 


Field  :  #MARK       LOGIC 
Read  Access  :  ABCDEFGHUKLMNOP 
Write  Access  :  A3CDEFGHIJKLMN0P 
Picture  :   (default) 


Field  :  ENTRY        NUM 
Read   Access  :  ABCDEFGHIJXLMNOP 
Write  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  "dd-dd-dd" 


Field  :  STATUS      STR   25 
Read  Access  :  ABCDSFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ••%25r" 


Field  :  PRINCIPL    STR   20 
Read   Access  :  ABCDEFGHIJKLIINOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  •'%20r" 


Field  :  SPONSOR      STR   40 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%40r" 


Field  :  PROPOSAL     STR   130 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%130r" 


Field  :  PERIOD      STR   20 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ••%20r'' 
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Field  :  ESTIIIATE     NUM 
Read   Access  :  ABCDEFGHIJKL:1N0P 
Write  Access  :  A3CDEFGHIJKL:1N0P 
Picture  :  ''$ddddddd.dd" 


Field  :  DEPTIC       NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "  $ddddd.dd'' 


Field  :  MIPR#        STR   15 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%15r'' 


Field  :  RSF#         STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%25r" 


Field  :  AUTH        NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  " $ddddddd.dd" 


Field  :  COSTCODE     STR   5 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%5r" 


Field  :  EXPIRE      NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  ICRECD      NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "  $ddddd.dd'' 
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Field  :  REMARKS     STR   50 
Read  Access  :  ABCDEFGHIJKL^-INOP 
Write  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  •'%50r" 


Field  :  STAFFLBR    NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
v^rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "$ddddd.dd'' 


Field  :  ASAPPRO     ITOM 

Read  Access  :  A 

IVrite  Access    :    A 

Picture    :    ''$ddddd.dd" 


Field  :  DOC#        STR   15 

Read  Access  :  A , 

il'/rite  Access    :    A 

Picture    :    "%15r" 


Field  :  SEGMENT     STR 

Read  Access  :  A 

Write  Access  :  A 

Picture  :  "^er" 


Field  :  SERIALS      NUM 

Read  Access  :  A , 

Write  Access  :  A , 

Picture  :  "dddd-dddd" 
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Table  name 
File  name 
Read  Access 
'^rite  Access 
Creation  Date 
Modification  Date 
Number  of  Records 


INVENTOR 
INVENTOR. ITB 

A 

A 

I   12/13/85 
12/13/85 
0 


Field  :  SMARK       LOGIC 

Read  Access  :  A 

'^rite  Access  :  A 

Picture  :   (default) 

Field  :  PA#         STR   5 

Read  Access  :  A 

^7rite  Access  :  A 

Picture  :  "%6r" 

Field  :  VENDOR      STR   40 

Read  Access  :  A 

?7rite  Access    :    A 

Picture    ;    "%40r'' 

Field  :  DESCRIPT    STR   50 

Read  Access  :  A , 

Write  Access  :  A 

Picture  :  '•%50r" 

Field  :  SSRIAL#      STR   12 

Read  Access  :  A. , 

Write  Access  :  A , 

Picture  :  '•%12r'' 

Field  :  P0#         STR   9 

Read  Access  :  A 

Write  Access  :  A 

Picture  :  "%9r'' 

Field  :  COST        NUI4 

Read  Access  :  A 

Write  Access  :  A 

Picture  :  '•$dddddd.dd" 
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Field  :  RECEIVED     NUM 

Read  Access  :  A , 

:'7rite  Access  :  A , 

Picture  :  "dd-dd-dd" 


Field  :  ISSUE       STR   25 

Read  Access  :  A 

TJrite  Access    :    A 

Picture    :    •'%25r" 


Field  :  LOCATION    STR 

Read  Access  :  A , 

>7rite  Access    :    A 

Picture    :    "^Tr" 
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Table  name  :  OPTAR 

File  name  :  OPTAR. IT3 

Read   Access  :  A3CDEFGHIJKL:IN0P 

?7rite  Access  :  ABCDEFGHIJKLMNOP 


Creation  Date 
Modification  Date 
Number  of  Records 


02/25/36 
02/25/86 
2 


Field  :  #MARK       LOGIC 
Read  Access  :  A3CDEFGHIJKLMN0P 
';^rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :   (default) 


Field  :  ENTRY       IJUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  RECEIVED    I-TUM 
Read  Access  :  A3CDSFGHIJKL2'INOP 
:^rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  ;  "dd-dd-dd" 


Field  :  AUTH        NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "$dddddd.dd" 


Field  :  TAOTH       iTOM 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  ;  "$dddddd.dd" 


Field  :  ACTUAL       NUM 

Read  Access  :  A 

Write  Access  :  A , 

Picture  :  "$dddddd.dd" 


Field  :  TACTUAL      NUM 

Read  Access  :  A 

Write  Access  :  A 

Picture  :  "$dddddd.dd" 
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Field  :  DIFFER 

Virtual  field  :  (  (ACTUAL  -  AUTH) ) 

Read  Access  :  A 

Picture  :   (default) 


Field  :  TDIFFER 

Virtual  field  :  ((TACTUAL  -  TAUTH) ) 

Read  Access  :  A 

Picture  :   (default) 
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Table  name  :  OTHER 

File  name  :  OTHER. ITB 

Read   Access  :  ABCDEFGHIJKLIINOP 

Nrite  Access  :  A3CDEFGHIJXLMN0P 


Creation  Date 
Modification  Date 
Number  of  Records 


02/25/86 
02/25/86 
6 


Field  :  #MARK       LOGIC 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :   (default) 


Field  :  ENTRY        NUM 
Read  Access  :  A3CDEFGHIJKL:iN0P 
:'7rite  Access  :  ABCDSFGHIJKL.INOP 
Picture  :  "dd-dd-dd" 


Field  :  STATUS      STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
;7rite  Access  :  ABCDEFGHIJKLIINOP 
Picture  :  "%25r'' 


Field  :  EXPIRE      NUM 
Read  Access  :  A3CDEFGHIJKL:iN0P 
^"Jrite  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  "dd-dd-dd" 


Field  :  PRINCIPL     STR   20 
Read   Access  :  A3CDEFGHIJKLMN0P 
:Vrite  Access  :  ABCDEFGHIJKLI-INOP 
Picture  :  "%20r" 


Field  :  SPONSOR     STR   35 
Read  Access  :  ABCDEFGHIJKLMNOP 
--/rite  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  "%35r" 


Field  :  PROPOSAL     STR   130 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ••%130r" 


194 


Field  :  COSTCODE     STR   5 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  •'%5r" 


Field  :  AUTH        NUM 
Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ''$dddddd.dd" 


Field  :  REMARKS      STR   50 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ''%50r'* 
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Table  name  :  PFUNDING 

File  name  :  PFUNDING. ITB 

Read  Access  :  A3CDEFGHIJKL:iN0P 

Write  Access  :  ABCDEFGHIJKLMNOP 


Creation  Date 
Modification  Date 
Number  of  Records 


02/27/36 

02/27/86 

314 


Field  :  #MARK       LOGIC 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :   (default) 


Field  :  ENTRY       NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  LNAME       STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  '•%25r'' 


Field  :  FNAME       STR   15 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%15r'' 


Field  :  FUNDFROM     mii 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  FUNDTO       ITUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  DAYS        STR   5 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%5r'' 
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Field  :  COSTCODE     STR   5 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  A3CDEFGHIJKL:'IN0P 
Picture  :  '•%5r" 


Field  :  a:-10UNT      ITUH 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "$ddddd.dd" 


Field  :  LABOR*      NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  CODS        STR   3 

Read  Access  :  A 

Write  Access  :  A 

Picture  :  '•%3r'' 


Field  :  HOURS       NUM 

Read  Access  :  A , 

Write  Access  :  A , 

Picture  :  "d" 


Field    :    RATS  ITUll 

Read     Access    :    A , 

Write  Access  :  A , 

Picture  :  "$ddd.dd" 


Field  :  HRSWK        NUM 

Read  Access  :  A , 

Write  Access  :  A 

Picture  :  "dd" 
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Table  name  :  PHISTORY 

File  name  :  PHISTORY. IT3 

Read   Access  :  ABCDSFGHIJKLMNOP 

'.■Jrita   Access  :  ABCDEFGHIJKLMNOP 


Creation  Date 
Modification  Date 
Number  of  Records 


02/27/36 
02/27/86 
27 


Field  :  #MARK       LOGIC 
Read  Access  :  ABCDEFGHIJKLMNOP 
^7rite  Access  :  A3CDEFGHIJKL:1N0P 
Picture  :   (default) 


Field  :  ENTRY        NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
;7rite  Access  :  ABCDSFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  LNAME       STR   25 
Read  Access  :  ABCDEFGHIJKLMNOP 
•,"7rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ••%25r" 


Field  :  FNAME       STR   15 
Read   Access  :  ABCDSFGHIJKLMNOP 
;^rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%15r" 


Field  :  DOB         NUM 
Read   Access  :  ABCDSFGHIJKLMNOP 
^'Jrite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  EFFECTIV    NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
v7rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  STATUS       STR   6 
Read  Access  :  ABCDEFGHIJKLMNOP 
:'7rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%6r" 
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Field  :  BILLET#      STR   4 
Read   Access  :  ABCDEFGHIJKLMNOP 
v7rite  Access  :  A3CDSFGHIJKL:1N0P 
Picture  :  •'%4r'' 


Field  :  JOBTITLE    STR   30 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  "%30r" 


Field  :  ES  mil 

Read  Access  :  A3CDEFGHIJKLMN0P 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  :70RKUNIT    STR   10 
Read   Access  :  ABCDEFGHIJKLilNOP 
Write  Access  :  ABCDEFGHIJKLIINOP 
Picture  i  "%10r'' 


Field  :  SUPERVSR    STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
Vrite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%25r" 


r, 


Field  ;  PD#         STR   5 
Read  Access  :  ABCDEFGHIJXLMNOP 
Write  Access  :  ABCDEFGHUKLMNOP 
Picture  :  "^oSr" 


Field  :  SERIES      MUM 
Read  Access  :  A3CDEFGHIJKLIIN0P 
Write  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  "ddddd" 


Field  :  GPJ^DE       NUM 
Read   Access  :  ABCDEFGHIJXLMNOP 
Write  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  "dd" 
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Field  :  STEP        NUM 

Read   Access  :  ABCDEFGHIJXL:1N0P 

Write  Access  :  ABCDEFGHIJXLIINOP 
Picture  :  "dd" 


Field  :  SALARY      NUM 
Read   Access  :  A3CDEFGHIJXL:1N0P 
Write  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  '•$ddddd.dd" 


Field  :  HRSWK       tJUIl 

Read   Access  :  ABCDEFGHIJKLMMOP 

Write  Access  :  ABCDEFGHIJXLIINOP 
Picture  :  "dd" 


Field  :  EXPIRE      HUM 
Read   Access  :  A3CDEFGHIJXLMN0P 
Write  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  REMARXS      STR   100 
Read   Access  :  ABCDEFGHIJXLMNOP 
Write  Access  :  A3CDEFGHIJXLMIT0P 
Picture  :  "%100r'' 


Field  :  RATS 

Virtual  field  :  (((SALARY  /  2087)  *  3  *  1.30000))) 

Read   Access  :  ABCDEFGHIJXLMNOP 

Picture  :  "$ddd.dd" 
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Table  name 
File  name 
Read  Access 
^Vrite  Access 
Creation  Date 
Modification  Date 
Number  of  Records 


PURCHASE 

PURCHASE. I T3 

A3CDEFGHIJKL:1N0P 

ABCDEFGHIJKLMNOP 
02/11/36 
02/28/86 
268 


Field  :  #r4ARK       LOGIC 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :   (default) 


Field  :  ENTRY       NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
:<lrite   Access  :  ABCDEFGHIJKLMNOP 
Picture  ;  "dd-dd-dd" 


Field  :  DOC#        STR   10 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  •'%10r'' 


Field  :  COSTCODE     STR   5 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%5r" 


Field  :  VENDOR      STR   40 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%40r" 


Field  :  DESCRIPT    STR   50 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%50r" 


Field  :  STOCK#      STR   20 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  '•%20r" 
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Field  :  ESTIMATE     NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
>7rite  Access  :  A3CDEFGHIJXL:IN0P 
Picture  :  •'$ddddd.dd" 


Field  :  PRIORITY     NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd" 


Field  :  RDD  NUM 

Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  CODS        STR   3 
Read  Access  :  A3CDSFGHIJKLMII0P 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  •'%3r" 


Field  :  RSQUESTR    STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access.:  ABCDEFGHIJKLMNOP 
Picture  :  "%25r" 


Field  :  P0#         STR   9 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  i  ABCDEFGHIJKLMNOP 
Picture  :  "%9r'' 


Field  :  RECEIVED     NUM 
Read  Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  FIRM        NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "$ddddd.dd" 
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Field  :  SERIAL*      STR   12 
Read  Access  :  ABCDEFGHIJKL:-IN0P 
Write  Access  :  A3CDEFGHIJKLMN0P 
Picture  :  "%12r" 


Field  :  PA#         STR   17 
Read  Access  :  ABCDEFGHIJKLi-lNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  ;  ''%17r'' 


Field  :  ISSUE       STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  "%25r" 


Field  :  LOCATION    STR   7 
Read   Access  :  ABCDEFGHIJKLIINOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%7r" 


Field  :  REMARKS     STR   50 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%50r" 


Field  :  QTY  STR 

Read  Access  :  A 

Write  Access  :  A , 

Picture  :  "rrr" 
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Table  name  :  TVLEXP 

File  name  :  TVLEXP. IT3 

Read   Access  :  ASCDEFGHIJXLMMOP 

?/rite  Access  :  ABCDEFGHIJXLMNOP 


Creation  Date 
Modification  Date 
Number  of  Records 


02/28/35 

02/23/36 

133 


Field  :  #MARK       LOGIC 
Read   Access  :  ABCDEFGHIJKLMNOP 
:'7rite  Access  :  A3CDEFGHIJKLMN0P 
Picture  :   (default) 


Field  :  DATEDEP     MUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  ABCDSFGHIJKLMUOP 
Picture  :  "dd-dd-dd" 


Field  :  RSQUESTR     STR   20 
Read  Access  :  ABCDEFGHIJXLMNOP 
Nrite  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  •'%20r'' 


Field  :  LOCATION     STR   25 
Read   Access  :  ABCDEFGHIJKLMNOP 
:"7rite  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  '*%25r" 


Field  :  CODS        STR   3 
Read   Access  :  ABCDEFGHIJXLMNOP 
'.<lrita   Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%3r'' 


Field  :  ESTIMATE     NUM 
Read   Access  :  ABCDEFGHIJXLMNOP 
!'7rite  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  ''$dddd.dd" 


Field  :  COSTCODE     STR   5 
Read   Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  ABCDEFGHIJXLMNOP 
Picture  :  "%5r'' 
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Field  :  DOCS        STR   10 
Read   Access  :  A3CDEFGHIJKLMN0P 
'^rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "%10r" 


Field  :  ADVANCE      NUM 
Read  Access  :  A3CDEFGHIJKLMN0P 
v^rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ''$ddd.dd'' 


Field  :  DATERET     NUr4 
Read  Access  :  ABCDEFGHIJKLMNOP 
:'7rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  CLAIM       HUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
Write  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  J  FIRM         NUM 
Read   Access  :  ABCDEFGHIJKLMNOP 
:7rite  Access  :  ABCDEFGHIJKLMNOP 
Picture  :  ''$ddddd.dd" 
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Field  :  ENTRY        NUiM 
Read   Access  :  ASCDEFGHIJKLMNOP 
I'iritQ   Access  :  ABCDSFGHIJKLMNOP 
Picture  :  "dd-dd-dd" 


Field  :  DOV#        STR 

Read  Access  :  A , 

Write  Access  :  A , 

Picture  :  "rrrrr" 
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